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1. Introduction 

I 

This report presents the results of a one year research study on the 
problem of antenna synthesis. The original goal as outlined in the pro- 
posal [1] was to develop analytical and numerical techniques which would 
aid in the design of multiple shaped beam antennas. During the course of 
the research it was decided to expand the scope of the project to include 
virtually any pattern type in combination with many antenna types. This, 
it is hoped, will increase the number of specific antenna design problems 
to which this method may be applied. 

1,1 The Need for New Approaches 

Multiple shaped beam antennas are required for s 3 mchronous orbit 
satellites involving advanced multi-function communications. Anticipated 
applications include transfer of information for biomedicine, law enforcement, 
adult education, etc. The satellite should be capable of point-to-point 
communication between any two points within the continental United States* 

This will be achieved using multiple satellite antenna beams and a series 

i 

of ground terminals. The antenna main beams must be shaped to give appro- 
priate illumination of the ground stations. Also, the side lobe levels must 
be low to minimize interference between adjacent beams. These pattern 
requirements are quite severe and it is a difficult procedure to find an 
antenna which meets the pattern specifications and is suitable for a spacecraft 
environment. The classical approach to determining which antenna system is 
most suitable is one of repeated analysis. That is, combining and modifying 
"off-the-shelf” antennas in many ways until an acceptable radiation pattern 
is obtained. The antenna system may still not be practical because of large 
size, narrow bandwidth, etc. When this approach is used for many different 


V 
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antenna systems the "paper study" stage becomes very costly. In addition, i 
when new antenna pattern specifications are introduced another costly "paper 
study" is required. 

To further illustrate the magnitude of the problem, a table of some of 
the variables that the antenna designer works with is given below. 


Radiation Pattern Variables 
I , Main Beams 

A. Number 

1. Single 

2, Multiple 

B , Shape 

1 . Nominal 

2 , Shape 
II. Side Lobes 

A. Nominal 

B. Low 


Antenna Variables 
I , Shape 
I A. Linear 

1. Linear array 

2. Line source 
B. Planar 

1. Planar array 

2. Planar aperture 
II. Size 


C. Complex 

There is, of course, a large nun^ber of possible combinations of pattern 
variables and antenna variables. In addition, there are almost endless 
numbers of possibilities within each category and also other possible categories. 
The pattern variable categories for this research project are multiple shaped 
main beams with complex side lobe structure. 


1,2 A Practical Approach to Antenna Synthesis 
The synthesis problem may be formulated as follows:" Given a desired 
antenna pattern (which may have multiple shaped beams plus controlled side lobe 
structure), we wish to find antenna structures which will approximate the desired 
pattern within acceptable limits subject to realizability criteria. Realizability 
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is broadly defined as the ability of the antenna to meet the system specifications 
of which it is a part. Specif ications i are often given on the following items: 

a. Ability to form the necessary number of main beams, 

b. Isolation levels between beams. 

c. Polarization control. 

Power handling capability. 

e. Center frequency of operation. 

f . Bandwidth 

g. Efficiency 

h. Size 

i . Weight 

j . Reliability 

k. Pattern control (scanning and beam reshaping for changing user needs). 

For satellite systems the specifications on the above items are frequently very 
demanding. Thus, the antenna designer lists all possible antenna systems which 
are capable of meeting the specifications. This is indeed the way one must 
face the problem. The next step is one of determining the design details of 
how one excites the antenna system in order to obtain an acceptable approxi- 
mation to the desired pattern. This is classically done by cut-and-try analysis. 
Many excitations are studied on paper or in the lab until the pattern is found 

or the money runs out. It is proposed here that a true synthesis (as contrasted 
to cut-and-try analysis) approach be explored. In other words, given the 
antenna type to be used (as determined from the realizability criteria) and 

I 

the desired antenna pattern, determine an excitation which approximates the 
pattern within acceptable limits. This is done for each candidate antenna 
type. A general synthesis, procedure capable of handling many antenna types 
would allow the designer to synthesize a pattern once for each antenna type 
Instead of using a lengthy and costly cut-and-try analysis for each one. The 



final stage is then one of determining which antenna type does the best job 
of meeting pattern and system specifications* 

The antenna design problem is then described in three stages: 

1. Listing the antenna types which possibly can meet system 
specifications • 

2. Determining the excitation of each antenna type required to meet 
the pattern requirements* 

3. Singling out the one "best” antenna system. 

The first two stages are frequently blended together, but ideally they should 
be distinct in order to avoid missing some candidate antenna types. The first 
and last stages are dependent upon the antenna designer’s experience and 
judgment. The second stage is dependent upon an accurate mathematical 
antenna model (experimental design is ruled out for cost reasons) and available 
design techniques. This project provides a general synthesis technique as a 
design tool, thus eliminating the cut-and-try analysis approach. Its success 
in terms of practical application hinges on the availability of an accurate 
antenna model. In other words, once an excitation is determined by the 
synthesis method for a given anteniia type and given pattern, how does one 
translate this into hardware? As will be explained later in this report there 
are several' points in the synthesis method where hardware constraints can be 
inserted into the solution. 


1*3 Scope of the Research 

This report presents the results of research Into the problem of finding 
an excitation of a given antenna such that the desired radiation pattern is 
approximated to within acceptable limits. This is to be done in such a fashion 
that boundary conditions involvxng nardware limitations may be inserted into 
the problem. The intended application is synthesis of multiple shaped beam 
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antennas. Since this is perhaps the most difficult synthesis problem an 
antenna engineer is likely to encounter, the approach taken was to include 
as a by-product capability for synthesizing simplier patterns. The synthesis 
technique has been almost totally computerized. The computer program and its 
use are described in detail elsewhere In this report. 

The class of antennas which may be synthesized with the computer program 
are those which may be represented as planar (continuous or discrete) current 
distributions. The technique is not limited in this sense and could indeed 
be extended to include, for example, the synthesis of conformal arrays or 
current distributions on the surface of reflectors. The antenna types which 
the program is set up to synthesize are the following: 

Continuous Aperture Sources Arrays 

Line source Linear Array 

Rectangular Aperture Rectangular Array 

Circular Aperture Arbitrary Planar Array 

Pattern specifications can be virtually anything-any number of main beams, any 
main beam shape, or any side lobe structure. Many examples are included in 
this report for illustration* 
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. Mathematical Modeling of Antennas 
An antenna can be synthesized by totally theoretical means only if an 
accurate mathematical model is available initially. It is the purpose of 
this chapter to summarize how one can approximately represent an antenna. 

2,1 Equivalent Currents 

It is often convenient to use equivalent currents to obtain the radiation 
fields from an antenna. Suppose the source antenna is entirely enclosed by 
a closed surface S. Let and be the values of the electric and magnetic 
field intensities on the surface S, The fields exterior to S can be found 
by using the equivalent electric and magnetic surface current sources: 
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first has the disadvantage of having two sources. The second and third con- 
figurations require that calculations must be made for the source In the 
presence of a conductor. 

If the equivalent surface S Is now a plane surface (closed at infinity 
such that actual sources are inside), calculations are simplified. Let S 
be the z = 0 plane and suppose the actual sources are on the left (z < 0). 

The surface normal is then n - z. The simplification arises from the fact 
that in methods 2) and 3) the theory of images may now be employed to replace 
a current (electric or magnetic) immediately in front of a conductor (magnetic 
or electric) by a current of double its value acting in free space. Of 
course, image theory gives us the correct answer only for z > 0, 

Using only currents acting in free space we may now use potential integral 
formulations to calculate the radiation. The electric and magnetic vector 
potentials for far field calculations are [2] 


A(r) = p 


-jkr 

4wr 

4irr 


II 


Jg(r') dx'dy* 

J„s(r*) dx'dy 


i 

I 


where r* = x’x + y^y and the coordinate system is shown below 


( 2 - 3 ) 

( 2 - 4 ) 



I 



The currents are doubled for cases 2) and 3), 


2,2 Representing Antennas as Finite Apertures 
An exact solution for z > 0 is obtained if the actual fields over the 
whole z = 0 plane is used in (2-1) and (2-2), Also, all three formulations 

i ' I 

of Section 2.1 give the same result. In many cases the fields E and H 

3 . 3 

over a specific aperture in the z = 0 plane are known or can be approximated 
well. The fields in the z = 0 plane and outside of the aperture are assumed 
to be zero. This is an assumption but is usually a necessary one to obtain 
a solution. Examples of antennas for which this aperture concept is useful 
are the horn, lens, and reflector antennas. The three equivalent current 
formulations now provide approximate solutions which in general do not agree 
with each other [2], However, the main features of the radiation pattern 
are usually unaffected by these approximations. 

The approximate equivalent currents over the aperture are 


Jo = z X H 
b a 


'^MS “ ^ ^ \ 


(2-5) 

(2-6) 


The expressions for the fields in the far-field region of the aperture are 

I 

Eg = -j<0Ag - (2-7) 

( 2 - 8 ) 

where = v'u /e and the magnetic fields are found using the plane wave 


relation 
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As an example suppose we use only a magnetic current and the aperture 
electric field is y-directed. Then 


JmS = ^MSx * = ^ ®ay ^ “ V 


( 2 - 10 ) 


^X 


O -jkr 


. 2 E dxMy* 

apirture 


(2-11) 


where the factor of 2 is necessary from image theory. Now 


Aj^ = cos e cos <j) 


(2-12) 




(2-13) 


% = % ; 

= Bin (p 


(2-14) 


^ 4 > = ^18 


= jn cos 8 cos <p A^ 


(2-15) 


^Ix = 2^ J J e cos cj) + y» sin 0 sin ^2-16) 

^ ^ aperture 


E = -J— sin (J) F 

0 2irr ^ y 


-7z cos 9 cos 4> F, 

2TTr ^ 3 


(2-17) 


(2-18) 


J, ^jk(x' sin e cos + y' sin 0 sin • ( 2 _ig) 

- 


aperture 
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If there is an x-directed component of the aperture electric field the 
far-field expressions become 


E 

E 


6 

«!> 


_ 


-jkr 


2irr 

-jkr 


jke 


2vr 


(Fy sin 

cos 0 (F cos - F sin <})) 

y X 


( 2 - 20 ) 

( 2 - 21 ) 


If an equivalent electric current is used instead of a magnetic current, 

equations are obtained which are duals of those above: 

,-jkr 

( 2 - 22 ) 


''e “ 


E. = 


2iTr 

-jkn^e 


-jkr 


cos 9 (F cos 4> - F sin d>) 
y X ^ 


27rr 


■ (F sin + F cos <j>) 

I y X 


(2-23) 


where 
F = 


/J 


V ft jk(x' sin 0 cos <1> + y* sin 9 sin <!>),,,, 

(x',y') e*^ ' T j Y/ dxMy’ 


(2-24) 


If both electric and magnetic current sources are used a combination of the 
preceding results is obtained [2]. This approach is not used very often 
because a knowledge of both aperture fields is required and the resulting 
number of calculations required. 

These solutions are exact if a complete knowledge of the fields over the 
entire aperture plane is available. This is usually never possible. In fact, 
some assumption about the aperture fields is made in addition to the assumption 
that the fields are zero outside the aperture. If the aperture is connected 
to an infinite plane perfect conductor the formulation using magnetic icurrent 
only is exact within the limits of a knowledge of the tangential electric 
field over the aperture. This is true because the tangential electric field 
is zero over the perfect conductor and thus the equivalent magnetic current 


is also. 
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As a first approximation to the aperture fields frequently the so-called 
physical optics approximation is used. It assumes that the aperture fields 
are those incident upon it; from the actual source. For example, the physical- 
optics fields in the aperture (or mouth) of a horn antenna are those of the 
waveguide feed [4]. 

Frequently aperture antennas are not used, but rather one wishes to 
relate directly to a source current. In this case "jg is an actual current 
and its Fourier transform A in (2-3) is used in the far-field expression 
(2-7). So quantitatively there is little difference from actual and equivalent 
current problems. The actual currents may be used in array antenna solutions. 

If a current distribution can be expressed as follows 

'^S “ ^ '^Sx' *^Sx y '^Sy *^Sy (2-25) 

it is referred to as being separable . In this case the two-dimensional Fourier 
transform, see (2-19) separates Into two one-dimensional transforms. Thus 
each transform is that corresponding to a line source and the total pattern 
is the product of the patterns of two line sources. Most practical rectangular 
sources have separable distributions [3], Thus, the aperture fields E and 

— k 

are usually separate and .render the two-dimensional integrals of (2-19) and 
(2-24) a product of one-dimensional integrals. 

2,3 Vector Radiation Fields 

In the radiation field (or far-field) the waves are locally plane and 
may be completely described by 6 and (() components (for an antenna at the 
origin of a spherical coordinate system). There are also two field components 
in the aperture which give rise to the radiation fields. It is convenient 
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to describe the radiation fields in spherical coordinates and the aperture 
fields in Cartesian coordinates. This complicates the relationship between 
aperture and radiation fields. It is the purpose of this section to discuss 
this point. 

If one uses the aperture electric field formulation the radiation fields 
are found from (2-20) and (2-21) , which are rewritten below as 


E = E(r) [cos 4> F + sin^F] 

E = E(r) [- cos 6 sin F + cos 6 cos <(> F ] 
i}> ^ X y 


where 


E(r) = 




-jkr 


2Trr 


This can be cast in a matrix form 


E0(e,(|)) 


°6x Sy 


“ -1 
F 

X 

E, (e,(j)) 


G^ G^ 


F 



(j)x <^y 


y 


where 

Eg(e,4>) = Eg/E(r) 


E (e,<|>) = E^/E(r) 

and 


= - cos 9 sin' ^ 


G = sin 4> 

^ I 

G- = cos 0 cos (f) 
«y 


(2-26) 

(2-27) 


(2-28) 


(2-29) 


(2-30) 


(2-31) 


In still more compact form (2-29) becomes 
[E] = [G][F] 


(2-32) 
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This formulation is particularly convenient for synthesis problems. If 
a certain desired electric feild behavior [E] is known, then the corresponding 
desired [F] is found from the solution of (2-32): ^ 

[F] = [G)"^[E] (2-33) 


The determinant of [G] is cos 6 . The inverse of [G] then exists except for 

0 = 7t/2. This is equivalent to radiation in the plane of the source and can 

be avoided, F and F are related to the corresponding aperture field com- 
X y 

ponents E and E by Fourier transforms 
ax ay 


F (e.^) = / / E 0 cos 4, + y’ sin 6 sin ( 2 . 34 ) 

Fy(e, 4 .) = / / E^y(x',y’)eJ'‘<’‘’ 6 cos 4 . + y’ sin 6 sin W^x-dy' ( 2 - 35 ) 


from (2-19). Tlie synthesis problem for vector fields is thus reduced to 
synthesizing F^ and F^ using (2-34) and (2-35), Since F^ depends only on 
E and F depends only on E , the vector problem reduces to two scalar 

AA y 

problems. 

If the aperture fields used are magnetic fields (or electric currents) 
the electric fields in (2-34) and (2.-35) are replaced by magnetic fields (or 
electric surface currents). Then [G] becomes 

_r cos 0 cos (|> - cos 0 sin <j) 1 


[G] = 


(2-36) 


- sin 


- COB 


J 


from ( 2 - 22 ) and (2-23). 

Tlie element pattern matrix [G] may also be used to absorb element patterns 
of array antennas. Suppose that the principle of pattern multiplication can 


be used. Then 
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I 


F = / / I (x\y’) dx'dy’ 


where we let 


becomes 


where 


a = X* sin 6 cos <(> + y* sin 6 sin 


F = G 2: L e^^“m « G F 

X X , xm 'X arx 

m=l 


sin 8 cos <j> + y„' sin 0 sin 
mm m 


and the element phase center locations. Similarly 

P jka 

F=G I I e'® = GF 

y y ni=i y® y 

These element factors may be combined into [G] giving 

- cos 0 sin G 


f^arl = 


COS 0 cos (i> G 


- sin (J) G 


“ cos <J> G^ 


X ^ -y 

The antenna equation (2-32) for the array problem becomes 


(El = [G^^l (F 1 
ar ar 


where the [F^^] entries are the array factors 


jka 


F = ^ e 
arx xm 

m— 1 


m 


P jka 

= E I e “ 

m-1 y® 


Example - A linear array of parallel short dipoles along the x-axis 
Since the current is y-directed we have 


F = 0 

X 


(2-37) 


(2-38) 


(2-39) 


(2-40) 


(2-41) 


(2-42) 


(2-43) 


2-44) 


-45) 


G F 
y ary 


(2-46) 
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The short dipole pattern is 

6 = sin 3 (2-47) 

y i 


where 8 is the spherical polar angle from the y-axis. But cos 8 = sin 0 sin 4 > 
so ‘ 


G = 

y 



(sin 6 sin 



(2-48) 


Now 


F 

ary 


S I 


ym 


jk a 


m 


(2-49) 


where 

a = X * sin 8 cos (p (2-50) 

mm 


since y ’ = 0* 
m 

2.4 Antenna Hardware Parameter Control 
A mathematical model of an antenna is useful in design work when the 
parameter being varied in the model can be translated into hardware. In the 
synthesis problem we end up with an aperture distribution which will produce 
the desired radiation pattern. Suppose a circular aperture distribution has 
been synthesized. Then one must find, for example, a feed system for a re- 
flector antenna which will produce the required field distribution over the 
aperture. Thus synthesis techniques are useful for a particular antenna only 

i 

if its excitation . is controllable in a known way. If hardware parameters 
(such as feed antenna size and position) are mathematical related to the 
aperture excitation, they may also be included in the antenna mathematical 
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model. The synthesis procedure then goes from pattern specification to hard- 
ware parameter output. Indeed, not many antennas are suited to this at this 
point in time. However, the synthe'sis technique presented in this report is 
capable accommodating several hardware limitations a priori. 

Array antennas appear to be the most readily adaptable to synthesis. 

After specifying the desired radiation pattern, element positions, and 
element pattern, one obtains the required terminal currents from the synthesis 
technique. For a few antenna arrays the mutual coupling (or impedance) matrix 
is available. The required terminal voltages for each element may then be 

' / > . I 

found as follows 


[V] = [Z][I3 


(2-51) 


where 


V, 


[V] = 


[I] = 


[Z] 


= terminal voltage matrix (computed from (2-51)) 


= terminal current matrix (found by synthesis) 


^11 ^12 


'21 


« « ♦ ♦ 


= mutual impedance matrix (known from 
calculations or experiment) 
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3. The Iterative ' Sampling Method for Planar Sources 

3.1 History of the Iterative Sampling Method 
The iterative sampling method has been used previously for shaping the 
main beam [5,6] and controlling the side lobes [5, 7, 8, 9] of line sources 
and uniformly spaced linear arrays. In this section the theory is extended 
to include any type of planar source. The method is applied to patterns 
which have multiple main beams that are shaped and also have controlled side 
lobe levels. ' 

Many methods are available for synthesis of radiation patterns using. 

f 

one-dimensional sources. Although proponents of most of these methods 
usually claim that it is a simple matter to extend their method to two 
dimensions, it is, in fact, rarely simple [10]. This is supported by the 
fact that it is almost never done. The iterative sampling, on the other 
hand, has been extended to two dimensions. 

The iterative sampling method allows one to suppress side lobes to very 

low levels over certain regions while relaxing the side lobe requirements 

! 

for other regions. When applied to the multiple-beam problem for time-zone 

I 

coverage, beam cutoff and low side lobes would be specified for Canadian 
coverage, while side lobe specifications above the horizon would be relaxed. 

Using this iterative technique the designer has the option of examining 
the metamorphosis of pattern change (and corresponding source change) as it 
approaches the desired form. Thus many patterns and their corresponding 
source currents may be examined. The pattern which approximates the desired 
pattern to just within the specifications will have the least complicated 
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source current distribution* The iterative sampling method provides such a 
design. 

Another interesting feature of this design approach is the possibility 
of using a measured pattern from an existing (or prototype) antenna system 
as a starting' point. Then calculations can be made to reveal what changes 
in the source are required to make specified corrections in the pattern. 

3.2 Pattern Evaluation - What is an Acceptable Pattern? 

Patterns can be evaluated using one or more of several criteria. Examples 
are side lobe level, beam width, rate of cut-off from main beam, mean squared 
error (between actual and desired pattern), etc. Different synthesis methods 
provide patterns which perform well with respect to one of these criteria, 

I I 

For complex patterns involving multiple beams, shaped beams, and/or varying 
side lobe structure, the criteria mentioned above are inadequate. The most 
flexible means of pattern evaluation is that using upper and lower bounds. 

In other words, one specifies at any or all points of the radiation pattern 
how much the synthesized pattern can rise above and/or fall below the desired 
pattern. Thus, the designer specifies a desired pattern plus an upper and 
lower tolerance. 

The tolerance method of evaluating a synthesized pattern allows one to 

I 

shape a main beam to within a fraction of a dB of the desired pattern. At 
the same time the side lobe region can have an upper tolerance of say 1 dB 
over critical portions and several dB over other regions; the lower tolerance 
:1s usually unspecified in the side lobe region because side lobes can fai;L 
anywhere below the desired level and be acceptable. It has been shown that 
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this means of pattern specification together with the iterative sampling 
method will yield synthesized patterns which include essentially all of the 
classical patterns which optimize only one parameter (such as side lobe level, 
main beam cut-off, etc,). [6] 


3.3 The Integral Equation 

The e and components of the electric field are desired to be of a 
certain relative level as a function of 9 and <j>. The desired Eq( 0,(|)) and 

I 

E (0,(j)) are converted into desired F (6,<^) and F (6,c|)) using (2-33). The 
<P 3c y 

synthesis problem is to find the aperture fields 

which produce sufficiently accurate approximations to the desired F^(G,(t)) and 
F (9,<|)), respectively. This amounts to solving the integral equations (2-34) 
and (2-35). Since these two equations are identical in form we will drop 
subscripts which refer to polarization, while remembering that two polarizations 
(alone or together) are possible. The integral equation which we wish to solve 
is then 


F(u,v) = 


J J 


E (x!.y-) dx'dy’ 


aperture 


where 


u = sin 6 cos <|> 
V = sin 6 sin 


(3-1) 

(3-2) 

(3-3) 


E and F may correspond to either component (x or y) of the aperture field. 
Define, normalized coordinate variables 

3 = xVA 
t = y\/\ 

and source function 


(3-4) 
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f (s,t) = 


X E (x*,y*) over the aperture 

d. 


(3-5) 


0 elsewhete 

Substituting (3-4) and (3-5) into (3-1) gives 

F(u,v) = f f f (s.t) dsdt 


(3-6) 


This integral extends over the whole st-plane and is recognized as a two- 
dimensional Fourier transform. The analysis problem is straightforward. 

Given an aperture distribution f we can calculate F from (3-6) by integration. 
The synthesis problem, however, is very difficult. Suppose we are given a 
desired pattern F^(u,v), which can be found from a desired electric field 
using (2-33). We wish to find an f (which is aperture-limited) giving an 
F which approximates F^ in some specified manner. 


3.4 Mathematical Development of the Method 
The iterative sampling method will be employed to find an aperture dis- 
tribution which gives a pattern that approximates the desired pattern within 
acceptable limits as specified by upper and lower tolerances. The iterative 
procedure begins with an original pattern F^°^ (u,v) and its corresponding 
source distribution f^^^ (s,t). The source is initially of a certain type, 
e.g. line source, rectangular aperture, linear array, etc. It also has fixed 
dimensions in terms of a wavelength. These initial parameters are determined 
by the designer as discussed In Chapter 1. The original excitation (s,t) 

of the antenna is one which gives a rough approximation F^°^ (u,v) to the 
desired pattern F^ (u,v) , It can be found from any classical synthesis method, 
such as the Woodward-Lawson sampling method, or it can be an experimentally 
obtained pattern. 
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A series of corrections Is added to the original pattern giving 

F® (u,v) = (u,v) + Z A (u,v) (3-7) 

i-1 

K is the number of iterations and A is the i^^ iteration correction to 

the pattern. In general , each iteration is composed of a weighted sum of 
corrections as 

4 (u.v) = I (3-8) 

where G(u-u ^ \ ® correction pattern centered at (u v 

11 11 n ’ n 

and having a value of unity there. The are weighting coefficients 

determined such that the current pattern is forced to equal the desired pat- 
tern at the correction point as follows 




(3-9) 


In other words, at the point the amount a is added to the 

th 

(i-1) iteration pattern to obtain the desired pattern value at that point. 
The pattern is, of course, also changed at other points. If several cor- 
rections are applied in a given iteration of (3-8) the pattern will equal the 
desired pattern at the sample points only if the samples are uncorrelated. 


However, if the sample points are relatively far apart the correlation between 
samples can be very low. For a given iteration there are usually only a few 
corrections, frequently positioned to maintain symmetry. Thus if one abandons 
the idea that samples must be completely uncorrelated and replaces it with 
the concept that they should not be strongly correlated, the method is much 


more powerful and flexible. Also since the type of correction function is 
not based upon satisfying the property of being uncorrelated, the designer 
can choose one that is convenient. 
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For a given Iteration then we have forced the pattern to be very close 

(exactly equal if only one correction is used) to the desired pattern at the 

sample points. The entire pattern is then recomputed and new corrections are 

evaluated using (3-9). It has been found that the position of the samples 

(u ^^\v which is most suitable Is the location where the (i-1)^^ iteration 

n n 

pattern exceeds the tolerance by the greatest amount. Using this scheme the 
number of samples is determined by the symmetry of the problem (if there is 
no symmetry only one correction is applied per iteration) , In this fashion 
the largest corrections arc applied first and the process tends toward con- 
vergence. If the desired pattern specifications are too severe the iteration 
procedure will converge to a certain point and then oscillate. This is not 
a limitation of the method. It is rather a fundamental limitation. If a well- 
behaved correction pattern G (examples are given in the next section) is used, 
superdirective patterns will never be S 3 mthesized. Superdirective patterns 
are to be avoided because of the accompanying complications of the source 
distribution. For example, a small aperture is not capable of producing pat- 
terns with an extremely sharp cut-off from the main beam unless superdirective 
conditions are allowed. Using well-behaved correction functions the iterative 
sampling method will not converge to a sharp cut-off desired pattern with tight 
tolerances. In cases where the desired result has not been obtained one can 
either use the final pattern as an approximation or start the iteration process 
over again using a relaxed version of the pattern specifications. 

Corresponding to each correction pattern there is a current correction 
(i) 

g (s.t) related to it as follows: 

®n ' » ' 


G(u-u 


(i) 


n 


,v-v 


( 1 ) 


n 


J . 


( 1 ) 


'n 


(s,t) 


aperture 


j (2 tisu + 2irtv) 


ds dt 


(3-10) 
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The source distribution corresponding to the pattern of (3-7) is 

(s.t) = (s,t) + Z A (s,t) 


where 


i=l 


A (s.t) = Z (s.t) 

n 


(3-11) 


(3-12) 


(k) (k) 

The pattern F' (u,v) and source (s,t) are a Fourier transform pair, see 

(3-6), However, the only transform that has to be calculated is (3-10); all 
other patterns and sources are found by summing up the elementary pattern and 
source corrections, G and g. This simplifies the required calculations greatly. 
If the source is a planar array of Isotropic point sources, we have 


f^^^ (s,t) = Z E S(s-B-, t-t ) 

£ m £m 

(K) 


(3-13) 


where 6 is the dirac delta function and are the currents for the X.m element 

£m 

of the array. If the array elements are not Isotropic the actual pattern is 
the array-element pattern times F (u,v) as discussed in Section 2.3. Let 


g 


(i) 


'n 


(s,t) = Z Z g^^^ 6(s-a , t-t ) 
£ m n£m 


for arrays. Then (3-10) becomes 


G (u-u 


(i) 


n 


(1), ,, (i) 


(3-14) 


(3-15) 


For arrays substitute (3-14) Into (3-12) giving 


A (s.t) - Z a Z Z «(s-s,. t-t ) 

^ n 0 n£m x m 

n X m 


(3-16) 


and let 


A (s.t) = Z Z A 5(s-s^. t-t^) 

£ m 


(3-17) 


So 
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and 


. ,{i) _ _ ^ (1) (1) 

Jim n ®nJim 

n 


+ E 

Jim Jim . . Jim 

1“1 


(3-18) 

(3-19) 


3.5 Common Antenna Types 

In this section several common source types will be discussed. Correction 
functions G and g are also suggested. There are many possible functions, that 
one may use, including those obtained experimentally. Presented here are those 
functions which have been found to be applicable to many synthesis problems, 
are easily handled in the computer program, and which do not give superdirective 
patterns. The only Fourier Transform which must be performed in this method 
that of (3-10). Since the synthesis problem as formulated here is linear we 
can use the elementary functions as expansion functions to determine complex 
pattern and source functions (see (3-8) and (3-7), and (3-12) and (3-11)). 
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An excitation which gives no edge illumination is the triangular line 
source. Its pattern has lower side lobes but larger beam width than the uni- 


form line source pattern. The excitation function is 
(i) 


S. 


(t) = ^ 


^ (1 - 2|t|/Ly^) exp (-j2Trv^^^\) 


0 


elsewhere 


The corresponding pattern found from (3-10) is 


G (v-v - 

n 


sin [L (v-v 
yX n 


^ 2 


^ V/2 


(3-22) 


(3-23) 


3.5.2 Linear Array 

The uniformly illuminated, linear phase, equally spaced linear array has 
currents 

t ) (3-24) 

nm r n m 


where t^ are the positions of the elements and equal “d^^ and P is the total 
number of elements. The corresponding pattern is 


f.. sin [P(v-v ^^^)ird .] 
“ - ■ ■ . “ (.) ' 


(3-25) 


P sin t(v-v^ ')TTdyj^l 


3.5.3 Rectangular Aperture 

The uniformly illviminated, linear phase, rectangular aperture has 
excitation function 


s < L 


g 


[l L exp (-j27r(u + v ^^\)) 

^"Ns,t) J yX P J n n 


xX/2 

■■yX/2 


elsewhere 


The pattern is 


G (u-u v-v « 

n n 


sin [L , (u-u sin [L ^ (v-v ^^^)tt] 

xX n yXn 

(1K_ „ (i) 




L , (v-v ^ Ott 
yX n 


(3-26) 


(3-27) 
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3*5,4 Rectangular Array 

Consider a planar array which has equally spaced elements in the two 

principal directions. There are P and P numbers of elements along the x 

X y 

and y directions and interelement spacings of d^^ and wavelengths in the 
X and y directions. The element currents are 


The pattern is 


(!) 


X y 


(i) 


(3-28) 


G (a-u 

n * 


v-v ('>) 
n 

sin sin [Py J 

sin [(u-u^^^bird^^i P^ sin [ (v-v^ 


(3-29) 


3.5.5 Circular Aperture 

Consider a uniform amplitude, linear phase, circular source a radius a^ 
wavelengths. The source function is 


g^^^\s,t) = • — exp [-j2x(s 

TTa-i 


u + 1 V ^T7 < 

n n ^ - 


_ a^ (3-30) 


The pattern for this source is, of course, found from (3-10), Since the details 
of this calculation have not been located in the literature, its details will 
be included here. First, it is more convenient to use cylindrical rather than 
rectangular coordinates to describe the source. Then we can write (3-30) as 


(i ) f t A * \ 


TTa, 


■y exp [-j2TTp*(cos (J)* u + sin <{>* 




The Integral (3-10) over the source (3-31) Is 


(3-31) 
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G (u-u v-v 

n ’ n 


where 


ira^ 

+ (v-v^^^^ sin $•]} p’ dp' d4>' 


X o o 


C = [(u-u^^^))^ + 


a = tan 


, u-u 
-1 n 


(3-32) 


exp [j 2rrp^ C cos (a - 4’)] pjj dp* d(p* (3-33) 


(3-34) 


(3-35) 


Now (3-33) is easily integrated as 


G (u-u„<^>, J Jo(2,p;c) p; dp' 

ira. ^ 


If u = V = 0 we have 
n n 


G (u,v) = 2 
n ’ 


X o 

Jj^(2na^C) 

2ira^C 


Jj^(2ira^ sin 6) 
2ira^ sin 8 


(3-37) 


(3-38) 


(3-39) 


which is the pattern of a uniform amplitude, zero phase, circular source. [4] 
Also note that when u = and v = C = 0 and (3-38) becomes unity. 

Thus pattern maximum. 


3,5,6 Arbitrary Planar Array 


There is a large class of antenna arrays which are not included in the 
previously mentioned linear and rectangular arrays. For example, the so-called 
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triangular array whose elenents are spaced such that the fundamental lattice 
shape is a triangle „ [11] This array provides a pattern similar to an equal 
size rectangular array but uses fewer elements. Also nonuniformly spaced 
arrays have applications. If the correction source is that of a uniform 
amplitude, linear phase array the pattern from (3-15) is 

G (u-u v-v = “ I exp {j2ir [s (u-u + t (v-v (3-40) 

n’n mn mn 

m=0 

There are M elements located at positions the s,t plane, 

3,6 Calculation of Directivity 

The radiation pattern has been described for convenience in terms of the 
variables u and v instead of 0 and This section discusses a few problems 
encountered when one wishes to calculate the directivity. The difference in 
the directivity between the original pattern and the final pattern (after 
iteration process is completed) is the gain loss. This number is usually 
small and may be positive or negative, 

A derivation of the directivity expression using u and v coordinates has 
not been located in the literature, so its details are included here. The 
directivity is calculated as follows 


D 



(3-41) 


The beam solid angle is given by 

2ir TT 2 

Q. ^ f f |F(e,<f)) I dQ ( 3 - 42 ) 

" o o 

where |F(6,<fi)| is the field pattern normalized such that its maximum value 
is 1.0 and 


I 


dQ = sin 6 de d(j> 


C3-43) 
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It is frequently convenient to transform from the 0,(j) space to the u,v plane 
using 


u = sin 9 cos 
V = sin 6 sin <f> 


(3-44) 


We are collapsing the spherical surface described by 0,<{> onto a planar surface 
through its equator giving a circular disk. There is an ambiquity here because 
points on the upper hemisphere (8 > tt/2) project onto the top of the u,v disk 
and points on the lower hemisphere map onto the bottom of the u,v disk. If 
we confine ourselves to only the upper hemisphere the transformation is one- 
to-one. In effect we modify (3-42) as 

2tt tt/2 2 

Q. = / / |F(e,<f>)| dSl (3-45) 

^ o o 

This is assumed to contain most of the radiation. Back lobes are ignored if 
the antenna is in free space.. If the antenna is backed by an infinite ground 
plane there are no back lobes and the formulation is exact (if F(6,(j)) is exact). 
The problem is to evaluate using F(u,v). This may be done in two ways. 
First, consider the projection of dQ onto the u,v plane; it is 


du dv = cos e d^ 


(3-46) 


so 




du dv 
cos 6 


But from (3-44) 



(3-47) 


cos 0 


(3-48) 
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so 


da = 


du dv 


A 2 : 

Vi - U - V 


(3-A9) 


Thus (3-45) becomes 


n. = / / |f(u,v) I 


du dv 


2^2 , 
u +v <1 


2 : 

vl - U - V 


(3-50) 


This result could also be obtained by a formal mathematical transformation 
of (3-45) as follows 


= / / |f(u,v)| sin 6 J du dv 


2 2 
u +v 

where J is the Jacobian given by 


and 


T - = _Jl 

wP \ -s y 


5 (u>v) 
3(8, (j)) 


3 (u. 

v) 

3u 

3u 

36 

d(j> 

3v 

3v 

39 

d(j> 


3(e,<{)) 


cos 9 cos - sin 6 sin <j> 

cos 9 sin (j) sin 6 cos <j> 
cos e sin e 


(3-51) 


(3-52) 


(3-53) 


So 


sin 0 J du dv = sin 6 


du dv 


cos e sin 0 
du dv 


A 2 

vl - u - 


(3-54) 


using (3-48). Substituting (3-54) into (3-51) gives the previous result (3-50). 
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Example ; An isotropic antenna 




1.0 


0 


0 ^ 6 ir/2 
6 > Tr/2 


Using (3-45) 


lit 71/2 

a. = f d<J> / sin 9 d6 = 2ir 
A o o 


Then (3-41) gives the directivity as D = 2. Also 


F(u,v) = 1.0 


2 2 

u +v < 1 


Using (3-50) 


«A = / / 


1 1 


du dv 


2 2 2 

Let r = u +v then 


A - (uV) 

2it 1 




r dr da 


0 0 

= ? da / X-1/2 (- = 2. 

0 0 


where X = 1 - r , Again D = 2. The directivity for an isotropic antenna is 
2 because one hemisphere has been neglected. We could define D as 27 t/J^^ and 
obtain unity directivity for this isotropic antenna. 
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4. Examples of Computer Antenna Synthesis 
The theory of chapter 3 has been computer programmed as the 
ANTSYN program and is discussed in detail in chapter 6. After an 
antenna synthesis problem has been solved using ANTSYN the results can 
be displayed using the ANTDATA program presented in chapter 7. The 
reader who intends on using these programs is referred to the appendices. 
In this chapter the results of several examples using the computer 
programs are presented. The examples given are only a small fraction of 
the number of antenna and pattern types which the method can handle. The 
important point to observe is that a wide variety of antenna shapes 
and pattern shapes can be synthesized using a single computer technique. 

4.1 Common Antenna Types 

In this section several simple antenna configurations are 
obtained from the computer programs. They are the patterns of the six 
correction functions discussed in section 3.5 and used in Subprogram PAT 
of the ANTSYN and ANTDATA programs. These patterns are examined for 
two reasons. First it serves as a program check. Many parameters are 
known about these patterns and can be compared to those obtained from 
the computer generated patterns to determine accuracy levels. Second, 
pattern plots of the correction functions provide a reference for 
visualizing synthesis capability of complex pattern shapes. 

The first example is that of a uniform amplitude, uniform 
phase, line source. The length was chosen to be ten wavelengths. All of 
these patterns will change with changing antenna size, however the 
beam widths change in almost an Inverse linear way with aperture size. 
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The side lobe levels do not depend on aperture size. In Fig. 4.1 is 
shown the pattern for this line source. (Aperture amplitude and phase 
distributions will be presented only when they are nonuniform.) This 
is the typical sin x/x pattern. The linear array version of this pattern 
is shown in Fig. 4.2 - that of a 21 element, half-wavelength spaced, 
uniform amplitude, uniform phase, linear array. 

A line source with a triangular amplitude taper and uniform 
phase is shown in Fig. 4.3. Its pattern is plotted in Fig. 4.4. Note 
its increased beam width and reduced side lobes realtive to the uniform 
amplitude line source. 

Next consider a rectangular aperture. For variety choose a 
size of lOX by 20X. When excited with uniform amplitude and phase 

it has a pattern given by (3-27). The principal plane patterns are 

I 

shown in Figs. 4,5 and 4.6. They are indentical to patterns from line ; 
sources of the same length, e.g. Figs. 4.1 and 4.5 are the same. In 
Fig. 4.7 is shown a contour map of the pattern, which includes the 
visible region of the uv - plane. The contour levels are 0.,-5,, 
-10.,...., -40. dB, The contour levels may be distinguished by 
examining the profiles. Also the -35 and -40 dB contours are plotted 
as dashed (looking almost dotted) lines. The square region shown 
was divided into a grid of 151 by 151 points for plotting this figure. 

An excellent way to present two dimensional patterns is through the 
use of Fig, 4.8 which gives a three dimensional effect and provides 
a good feel for the pattern throughout the visible region. 

The patterns of a uniformly excited rectangular array have been 
omitted because of their similarity to the continuous aperture patterns 
for element spacings of a half wavelength or less. 
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Figure 4.1 Pattern of a uniform amplitude, uniform 
phase, ten wavelength line source. 


I 



Figure 4.2 Pattern pf a uniform amplitude, uniform phase, 

half wavelength spaced, 21 element, linear array. 
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Figure 4.6 Profile along v-axis of the pattern from a uniform 

amplitude, uniform phase, 10 by 20 wavelength rectangular 
aperture. 



Figure 4.7 Contour map of the pattern from a uniform amplitude, uniform 
phase, 10 by 20 wavelength rectangular aperture. 
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Figure 4.8 Radiation pattern of a uniform amplitude, uniform phase, 10 
by 20 wavelength rectangular aperture. 
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Synthesis capability is provided for circular aperture by inclusion of 
an elementary pattern from such an aperture which is uniformly excited in 
amplitude. Figs. 4.9 and 4,10 show u and v axis profiles of the pattern from 
a uniform amplitude, uniform phase, five wavelength radius circular aperture. 
These plots are, of course, identical, A contour map of this pattern in the 
uv - plane for the whole visible region is shown in Fig. 4,11. The three 
dimensional view of the pattern is shown in Fig, 4,12. 

The parameters of beam width, side lobe level and directivity have been 
calculated from theory and also obtained from this computer technique. They 
are all presented in Table 4,1 for the elementary patterns. In all cases 
except one the agreement is excellent. The directivity of a triangular line 
source is off by 8%. The reason for this is not known. 


I 


4.2 Linear Antenna Synthesis 

In this section linear antennas are used to synthesize complex pattern 
shapes. Consider first a ten wavelength line source. Let the desired pat- 
tern and the upper and lower bounds be 


V 

] V I 0. 2 
0.4 1 I v| ^ 1.0 

The desired pattern is then a square beam with no side lobes but - 40. dB side 

V 

lobes will be tolerated. The original pattern is a Woodward-Law^son pattern 
with sample points at v = - 0,2, - 0,1, 0., 0,1, 0.2 and sample values of 
1.0 at these points. This original pattern has excursions + 0.80 and - 0.25 
clB over the main beam and a side lobe level of - 20. dB in the specified 


F,(v) 


F^(v) 


Fl(v) 


0. dB 


0.5 dB 
- 40. 


- 0.5 dB 
unspecified 
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Figure 4.9 Profile along u-axls of the pattern from a uniform 

amplitude, uniform phase, 10 wavelength diameter circular 
aperture. 



Figure 4.10 Profile along v-axis of the pattern from a uniform 

amplitude, uniform phase, 10 wavelength diameter cir 
cular aperture. 




Figure 4.11 


Contour nap of the pattern from a uni 
phase 10 wavelength diameter circular 


form amplitude 
aperture. 


f 


uniform 
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Figure 4.12 Radiation pattern of a uniform amplitude, uniform phase 10 
wavelength diameter circular aperture. 
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Table 4.1 Pattern Parameters for Elementary Correction Patterns 


Antenna 
Type r 
ITYPE 

Source 

Dimensions 

(X) 

Beam Width 
Theory Computer 

Side Lobe Level (dB) 
Theory Computer 

Directivity (dB) 
Theory Computer 

Uniform line 
source - 1 

o 

n 

0.0886 0.0886 

-13.3 -13.3 

13,1 13.2 

Uniform linear 
array - 2 

P = 21 d ,“0*5 
y XA 

0.0886 0.0886 

-13.3 -13.2 

13.1 13.3 

Triangular line 
source - 3 

L “ 10 

0.128 0.128 

-26.6 , -26.6 

11.8 12.7 

Uniform 

rectangular 
aperture - 4 

LxX = 10 
LyX = 20 

0.0886 0.0886 

0.0443 0.0443 

-13.3 -13.3 

-13.3 -13.3 

34.0 34.0 

Uniform 

rectangular 
array - 5 

Uniform 

circular 

P- = 21 d =0.5 

X XA 

P = 41 d =0.5 
y y>. 

0.102 0.102 

' 

-17.6 -17.6 

34.0 33.9 

i 

29.95 29.86 

aperture 6 


- 


1 

1 

1 
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side lobe region. The final pattern (which met the specifications) was ob- 
tained after 69 iterations. It deviated + 0.44 and - 0.42 dB over the main 
beam region and had a peak side lobe of - 40.79 dB in the specified side lobe 
region. The pattern is plotted in Fig. 4.13. The corresponding current dis- 
tribution is given in Fig. 4.14. 

The same pattern was synthesized using triangular amplitude source cor- 
rection coefficients (see Figs. 4.3 and 4.4). This allows for comparison of 
different correction functions. The original pattern was formed using cor- 
rections located at v = - 0.2, 0.0, 0.2 and of amplitude 1.0. The final pat- 
tern was obtained after only 30 iterations as compared to 69 for uniform 
amplitude source correction functions. The pattern deviations about the de- 
sired level of 0. dB over the specified main beam region were +0.30 and 

- 0,11 dB. The peak side lobe over the specified side lobe region was 

- 41.68 dB. Thus the synthesized pattern was obtained with fewer iterations 
and was more comfortably within the tolerances than the pattern synthesized 
using uniform amplitude source correction coefficients. The pattern for 
this case is shown in Fig. 4.15. Its corresponding current distribution is 
plotted in Fig, 4,16, Note that the current is zero at the edges. This is 
because the source correction function of Fig. 4.3 is zero at the aperture 
edges. Zero edge illumination may be desirable in some situations. 

Occasionally it is desirable to use linear arrays which are not equally 
spaced. The ITYPE = 7 of the ANTSYN program provides for general array 
synthesis. This example follows that of [141 which employs a different 
synthesis teclmlque. The desired pattern is a square beam with upper ami 
lower bounds as follows 
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Figure 4.13 Square main beam pattern synthesized using a 10 wavelength 
line source with uniform amplitude source correction func- 
tions. 
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Figure 4,14 Current amplitude distribution required to produce patt 
of Fig, 4.13. 
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V 

F^(v) 

FlXv) 

j V 1 < 0 , 26 0 , dB 

+ .42 dB 

- .42 dB 

0.44 ^ |v| £ 1.0 - 20. 

- 18.4 

unspecified 


The element positions used as Input to the program were found from [14] and 
are = 0. , - 0.496, - 0.983, - 1.926, - 2.372, - 3.188, + 3.545. The 
original pattern for this 13 element array was formed using the same Woodward- 
Lawson specifications as the first example of this section. The original 
pattern has an excursion of 4.51 dB above the desired level of 0. dB over 
the main (square) beam region and none below. The side lobe level is - 9.2 
dB. Thus, in this case, the original pattern is quite far from desired per- 
formance. The final pattern obtained from ANTSYN took 15 iterations to meet 
the specifications. In fact, all side lobes were below - 22. dB. The pat- 
tern is shown in Fig, 4,17. This compares to a side lobe level of - 18.6 
dB from [14]. The element currents for the two methods are similar. 

4.3 Rectangular Antenna Synthesis 

The multibeam capability of this technique is displayed with the syn- 
thesis of a pattern with pencil beams positioned at (0.5, 0.5), (0.5, -0.5) 
(-0.5, -0.5), and (0.5, 0.5). The side lobe upper limit was specified to be 
-25dB in the visible region outside the main beams, i.e, (for example, the 
beam centered at (0.5, 0,5) was specified for 0.38<u<0.64 and 0. 38 <Oj«0. 64) , 

The other beams were specified in a symmetric fashion. The region outside 
of these main beam regions had an upper limit of -25dB and no lower limit. 

The antenna is a 10 by 10 wavelength square aperture. The original pattern 
was a Woodward-Lawson pattern with a correction coefficient of 1.0 and cor- 
rection locations at each of the four main beam locations given above. The 
final pattern was obtained after 21 iterations. Profiles through the centers 
of the main beams (along u for v=0,5 and along v for u=0,5) are shown in 
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Figures 4,18 and 4.19. The visible region includes abscissa values between 
-0.866 and 0,866, Thus, the high side lobes on each end of the profiles 
are outside the visible region. The contour map of the region |u[ and [v|^ 
1,0 is plotted in Figure 4,20. The visible region is a circle inscribed in 
the square shown. The three dimensional view is given in Figure 4,21. 

In the next example a rectangular beam is synthesized using a 10 by 
20 wavelength rectangular array. There are 20 elements spaced 0.5 wave- 
length in the s-direction and 40 elements spaced 0.5 wavelength in the 
t-direction. The pattern specifications are: 

FT■(^fV) 

l.OdB -0.9dB 

-18.4 unspecified 

The pattern is unspecified at all other points of the uv-plane. The gap in 
specifications between the main beam and side lobe regions allows the main 
beam to roll off. The elementary correction functions used (see 4.1) will 
give side lobes below -20. dB outside the side lobe region specified. The 
original pattern is that of a Woodward-Lawson pattern with 1.0 correction 
coefficients at 15 sample points which are all possible combinations of -0,2, 
-0,1, 0.0, 0.1, and 0.2 in u and -0.05, 0.0, and 0.05 in v. The ANTSYN com- 
puter program convergied to a final pattern which met specifications after 62 
iterations. The principal plane patterns are shown in Figures 4.22 and 
4,23. The contour map is plotted in Figure 4.24. The contours run from 
0. to -40. dB in 5.dB steps and the -35, and -40. dB contours are dotted. 

The three-dimensional view is shown in Figure 4.25, 
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O.dB 
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Figure 4.18 A multiple beam radiation pattern profile in the u-direction 
for V = 0,5 synthesized using a 10 by 10 wavelength aperture 
antenna. The visible region is for |u| 0.866. 
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Figure 4.19 A multiple beam radiation pattern profile in the v-direction 
for u = 0.5 synthesized using a 10 by 10 wavelength aperture. 
The visible region is for |v| ^ 0.866, 



Figure 4,20 Contour map of a multiple beam, low side lobe pattern 
synthesized from a 10 by 10 wavelength aperture. 
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Figure A. 21 Multiple beam, low side lobe pattern synthesized from 
a 10 by 10 wavelength aperture. 
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Figure A. 22 Profile along u-axis of a rectangular main beam, low 
side lobe pattern synthesized from a 20 element, 0.5 
wavelength spaced by AO element, 0.5 wavelength spaced 
rectangular array. 


pnrTEiRN Ci 


U — UiJUU 


Figure A. 23 Profile along v-axis of a rectangular main beam, low 
side lobe pattern synthesized from a 20 element, 0.5 
wavelength spaced by AO element, 0.5 wavelength spaced 
rectangular array. 






Figure 4.2A Contour map of a rectangular beam, low side lobe pattern 
synthesized from a 20 element, 0*5 wavelength spaced by 
AO element, 0.5 wavelength spaced rectangular array. 
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Figure 4.25 Rectangular beam, low side lobe pattern synthesxzed 
from a 20 element, 0.5 wavelength spaced by 40 ele- 
ment, 0.5 wavelength spaced rectangular array.. 
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Tighter tolerances are easily achieved. This example is a rectangu- 
lar beam with. the following specifications; 


(u,v) 

Fd(u,v) 

Ftt(u*v) 

F,(u,v) 

-0.2^u^0.2 

-0.05^v^0.05 

O.dB 

0.5dB 

-0.5dB 

0.34<|u|<0.50 

0.l2£iv|£0.50 

— OS) 

-25. 

unspecified 


The pattern is unspecified at all other points in the uv-plane. The an- 
tenna used is again 10 by 20 wavelengths , but this time it is a continuous 
rectangular aperture. The original pattern is a Woodward-Laws on pattern 
with sample points and sample values as given in Section 8.1. The ANTSYN 
program was run and its output is shown In Section 8.2, Coincidentally, 
the number of iterations required to meet Specifications, 62, was Identical 
to the previous example which had weaker specifications. The plots of the 
final results were obtained using the ANTDATA, whose input for this exam- 
ple is discussed in Section 8,3. The principal plane profiles are shox^ 
in Figures 4.26 and 4,27. Note that the main beam ripple is less than 
+0.5dB and the side lobes are below -25. dB. The contour map of the pat- 
tern is shown in Figure 4.28. In this case the lowest contour shown is 
-30. dB. The contour interval is still 5.0dB and the maximum contour level 
is O.dB. The three dimensional plot is shown in Figure 4.29, The floor 
of this plot is -35, dB, i.e. values -35. dB below the main beam are sup- 
pressed. 
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Figure 4.28 Contour map of a rectangular main beam, low side lobe pattern 
synthesized from a 10 by 20 wavelength rectangular aperture. 
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Figure 4.29 Rectangular main beam, low side lobe pattern synthesized from 
a 10 by 20 wavelength rectangular aperture. 


-60- 


5» Conclusions 

In this report we have presented a rather detailed discussion of a 
general technique for antenna synthesis. This general approach was adopted 
to allow for synthesizing perhaps the most difficult type of radiation pat- 
tern — • that of multiple shaped main beams with side lobe control. The 
intended application for this particular pattern is for domestic satellite 
antenna systems. Included are specific models for several common antenna 
types plus capability for synthesizing special antennas. This was done so 
that a paper feasability study can be carried out for many antenna types. 
After such a study, there remain many engineering decisions concerning 
realizability (see Chapter 1) for each candidate antenna. 

The examples given in Chapter 4 illustrate some of the antenna types 
and pattern shapes which can be handled with this method. There appears to 
be no limit to the variety of antennas and patterns one can use. The con- 
vergence of the iterative sampling method is not guaranteed. This is due 

to the simple correction functions we use. However, this selection ensures 

I 

that no superdirective patterns will be synthesized. If a very narrow beam 
correction pattern were used, the convergence rate would increase due to 
increased resolution of the correction patterns. When convergence to the 
desired pattern is not obtained, one can relax the specifications (usually 
by widening the region of no-speciflcation between the main beam and side 
lobe regions) . 

The synthesis capability can be expanded by increasing the capability 
of the computer programs given in the appendices. For extremely large an- 
tennas the pattern digitizing should be increased. It is now a 51 by 51 
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grid for one quadrant (for quadralateral symmetry) . This grid should be 
increased in size for antennas of, say, many tens of wavelengths in size. 

The program could be made more efficient by making an array for the cor- 
rection functions (e.g. PAT, SOURCE), to avoid repeated computations. This 
would allow one to easily put in an experimental correction function also. 

The synthesis of circular apertures is currently rather slow. This is 
because of the Bessel function calculations which are required. Perhaps 
a special purpose Jj^.(x) routine could be written to avoid the general pur- 
pose IBM SSP routine. 

The ANTDATA program requires a large amount of time to plot two and 
three dimensional plots. An ideal solution to this would be to replace 
the CALCOMP plotter with a video real time display for previewing the results. 
A hard copy attachment to the video terminal would also be very useful. In- 
teractive computer graphics could be explored too. 
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6. Appendix ; The ANT3YN Computer Program 
6.1 Introduction 

The ANTSYN computer program synthesizes finite planar antennas. It 
is based on the theory detailed in Chapter 3. On a large scale it can be 
considered to consist of four major functional blocks. The main program 
provides control of what operations are to be performed. The subroutines 
comprise the remaining blocks which function as input, computation, and 
output. The program as presented in this report is designed to handle anten- 
nas of most shapes and sizes* However, if an unusual antenna shape or one 
with certain limitations arising from hardware considerations is encountered, 
the modular subroutine structure allows the designer to change only selected 
subroutines to accommodate his particular problem. 

This computer program has evolved over a period of six years and had 
been tested thoroughly. Because it is designed for wide application, it is, 
however, large and complex. Thus, if the potential user intends to make any 
subroutine changes he should have a good grasp of the FORTRAN IV language. 

The patterns and source distributions are digitized and set up as two 
dimensional arrays. The pattern arrays FDES, FU, FL, AND F are specified 
in the U and V directions at MMAX and NMAX points beginning at STARTU and 
STARTV and incremented in intervals of DELTAU and DELTAV. The current arrays 
CURR and CURI are specified in the S and T directions at MCUR and NCUR points 
beginning at INITLS and INITLT and incremented in Intervals of DELTAS and 


DELTAT. 



6.2 Program Organization 

A block diagram of the program with all of its subroutines is shown 
in Fig. 6.1. As mentioned in the previous section, the main program 
provides control over the subroutines which fall into three categories: 
input, computation, and output. The organization was selected to offer 
maximum flexibility. The program is intended to be very general, and it 
does provide for synthesis of many antenna types. However, if special 
antenna types are to be synthesized, the subroutines SPECPT and SPSOR 
can be used. Also, if the original pattern, correction pattern, or source 
correction are experimental, the subroutines ORGPAT, PAT, and SOURCE may 
be replaced with a data file of some sort. 

The subroutines such as ANTSYN, SEARCH, UPDATE, CHECK, and CURREN 
have been developed from a considerable amount of effort and should not 
be changed unless one thoroughly understands the details of the entire 
program. The other subroutines have been written with the possibility of 
change in mind. 

The arrays F, FDES, FU, FL, CURE, and CURI are presently dimensioned 
at (51, 51). The arrays US, VS, and CORCOF are dimensioned at 500. The 
storage used on the Virginia Tech IBM System 370/155 computer is about 
200 K. Of course, any example run with the present program with dimension 
requirements less than those in the present program will be run by the pro- 
gram, If larger dimensioning is necessary the appropriate dimension state- 
ments in the program must be changed and storage allocation increased com- 


mensurately . 




Figure 6.1 Block diagraTn of ANTSYN program 
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6.3 User’s Guide to ANTSYN 

In this section a summary of the steps one must follow when using ANTSYN 
is presented. The steps are listed in Table 6.1 in order. The device refers 
to how the step is accomplished in the program. The location refers to where 
in the program the step is performed. The availability is either standard or 
special. Standard is the way it is listed in the statement listing of Section 
6,6. Special means it is to be provided by the user with the device indicated. 
The steps will be discussed here. Further details can be found in the variable 
definitions and subroutine descriptions in the following sections. 

Step 1 . This step is entirely optional and is included to show how one 
can use data storage (on-line disk in this case). The variables NUMPAT, NUMTRK, 
NUMSKP and IP ASS are read off of the storage unit. NUMPAT is the pattern number 
assigned to the previous job. The program adds one to NUMPAT to form the cur- 
rent job pattern number. NUMTRK is the track number on disk where the previous 
job data was stored. NUMSKP. is an array whose subscripts correspond to disk 
storage track numbers. If this number is 0 or 1 there is not data stored on 
that track. This information is used in step 10 to write onto disk. 

Step 2 . The pattern parameters are read in from cards, under 

NAMELIST/PARAM/IDISK, ISYMM, ITRMAX, DELTAU, DELTAV, STARTU, STARTV, 

MMAX, NMAX, MCENT, NCENT 

All of these variables are to be provided on cards following the FORTRAN 
Namelist format. 

Step 3. Next the switches for control of the print out are read in from 
cards under 

NAMELIST/IPRINT/FDESPT, FDESPR, FDESCN, FDBPT, FDBCN, FDBPR, FORGPT, 

FORGCN, FORGPR, ICURPT, ICURCN, ICURPR, FCURPT, FCURCN, FCURPR, DIRECT 

Only those print outs desired need to have the appropriate switch variable 
provided on input of this Namelist, because default for all print outs is none. 



Device 


Location 


Availability 


1. 

Job assignment 

Auxiliary storage 

MAIN 

Standard 

2. 

Pattern parameters 

Cards; use Namelist PARAM 

MAIN 

Standard 

3. 

Output print 
control 

Cards’; use Namelist IPRINT 

MIN 

Standard 

4. 

Antenna parameters 

Cards; use Namelist PATIN 

INPUT 

Standard 



If ITYPE >7 also use subroutine 
S INPUT 

S INPUT 

Special 

5. 

Desired pattern 

Program statements to load FDES, FU 
and FL 

or 

DESPAT 

Special 



Cards; call subroutine READ to load 
FDES, FU, and FL 

DESPAT 

Special 

6. 

Original pattern 

and original source 

Cards; read NORG, US, VS, CORG to 
generate original state using 
Woodward-Lawson method 

ORGPAT 

Standard 



or 





Cards or program statements; if 
Woodward-Lawson is not used>load 
F, CURR, and CURI, set N0RG=0 

ORGPAT 

Snecial 

7. 

Special correction 
pattern function 

Program statements to generate 
values of PAT, ITYPE >7 

SPECPT 

Special 

8 . 

Special correction 
source function 

Program statements to generate 
companion to special pattern, ITYPE >7 

SPSOR 

Special 

9. 

Special location 

Program statements to generate 
source coordinates given source 
array subscripts, use when ITYPE >7 

SPLOC 

Special 

10. 

Job storage 

Programming to write job data 

MIN 

Standard 


onto storage unit 
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Step 4 . This step provides Input concerning the particular antenna 

to be used. It is read in on cards under 

NAMELIST/PATIN/LX, LY, PX, PY, DISX, DISY, INITLS, DELTAS, FINALS, 
INITLS, DELTAT, FINALT, NELMT, ARAD, ITYPE, MCUR, NCUR 

See write up on Subroutine INPUT in Section 6.5 for a list of which varia- 
bles must be supplied in this Namelist for the various antenna types. 

Step 5. The patterns FDES, FU, and FL are to be loaded in this step. 
This can be done in two ways. First programming can be provided in Sub- 
routine DESPAT to give a value to this arrays at every point. Or, a Sub- 
routine DESPAT can be used to call READ for these arrays and then cards 
are read to load the arrays. 

Step 6 . The original pattern and original source are loaded in this 
step. If the Woodward-Laws on technique is satisfactory all that is nec- 
essary is to provide data cards with sample information. The first card 
is the number of samples NORG and uses an 15 format. The succeeding 
cards (NORG in number) contain UORG, VORG, AND CORG (the sample locations 
and values) on a 3F10.0 format. The original pattern F aiid current CURR 
and CURI may be loaded in any other fashion if the user replaces ORGPAT 
with programming that loads them directly or calls some device and reads 
them. Set N0RG=0 in ORGPAT if Woodward-Laws on technique is not used. 

Steps 7' and 8 . If correction pattern and source functions other than 
the seven standard ones available are desired by the user. Subroutines SPECPT 
and SPSOR are to be written. Use ITYPE >7, 

Step 9 . If correction pattern and source functions other than the 
seven standard ones available are desired by the user. Subroutine SPLOC is 


to be v/ritten. Use ITYPE >7. 
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Step 10 , At the completion of a program data may be stored for 
future use, such as with the ANTDATA program* After looking at ANTSYN 
print out the user can decide if further display is desired* We can 
then use the data stored to plot patterns, currents, etc. IDISK is used 
to control whether data is to be stored. 
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6,4 Program Variables 

6.4.1 Correspondence Between Symbols Used in the Theory and Program Variables 

Computer Program 

Symbol Counterpart 



CORCOP( ) 

n 



ARAD 

*^xA 

DISX 

^YA 

DISY 


GURR(M,N) 
CURI (M,N) 


(u,v) 

P (M,rT) 


Fd(u,v) 

PDFS (M,N) 


(s,t) 

SOURCE (J,K,US(L) ,US(L) 

,ITYPE) 

G(u-Un^^^ 

PAT (U-US(L), V-VS(L), 

ITYPB) 

^xA 

LX 


Sx 

LY 


Px 

PX 


P^_ 

PY 



u 

V 


(i) 


S 

T 

U 

us( ) 

V 


v„a) 


VS ( ) 



6*4.2. 

DIRECT 

FCURCN 

FCURPR 

FCURPT 

FDBCN 

FDBPR 

FDBPT 

FDESPR 

FDESPT 

IC 

ICURCN 

ICURPR 

ICURPT 

IDISK 

IP ASS 
ISUC 
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Definition of Some Integer Variables Used in the Program 


Input variable controlling calculation and print out of direc- 
tivities DIRORG and DIRFNL; 0 No, 1 Yes - Default is 0. Original 
pattern is to be of Woodward-Lawson type. 

Input variable controlling print out of contour map of final 
current distribution; 0 No, 1 Yes - Default is 0. 

Input variable controlling print out of final current distribu- 
tion profile or list; 0 None, 1 Profile (S and/or T axis) for 
continuous sources, 1 Table of element currents for arrays, 2 
List (primarily for use with ITYPE =• 7) - Default is 0. 

Input variable controlling print out of a listing of the final 
current distribution; 0 No, 1 Yes - Default is 0, 


Input variable controlling print out of 
pattern in dB; 0 No, 1 Yes - Default is 


contour map of final 

0 . 


Input variable controlling print out of final pattern profile; 
0 No, 1 Yes - Default is 0. 


Input variable controlling print out of final pattern in dB; 0 
No, 1 Yes - Default is 0. 

Input variable controlling print out of desired pattern profile 
table; 0 No, 1 Yes (U and/or V axis) - Default is 0. 


Input variable controlling print out of a listing of desired 
pattern; 0 No, 1 Yes - Default is 0. 

Subscript of C0RC0F( ) array for latest correction. 


Input variable controlling print out of contour map of initial 
current distribution; 0 No, 1 Yes - Default is 0. 

Input variable controlling print out of initial current distribu- 
tion profile or list; 0 None, 1 Profile (U and/or V axis), 2 List 
(primarily for use with ITYPE = 7) — Default is 0. 

Input variable controlling print out of a listing of initial cur- 
rent distribution; 0 No, 1 Yes - Default is 0. 


Input variable controlling output of data to disk storate; 0 No, 

1 Write if successful (ISUC = 1) , 2 Write all final pattern data. 


Optional passwork to protect disk storage 

Success counter; 0 If pattern specif iclations have not been met, 
1 If they have. 
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isYm 

ITER 

ITRMAX 

ITYPE 


MCENT 

MCUR 

I^IMAX 

NCENT 

NCUR 

NELMT 


Input variable descirbing the symmetry of the desired pattern; 

0 if No symmetry, 1 for symmetry about U-axis, 2 for symmetry 
about V-axis, 3 for symmetry about both U and V axes, and 4 
for symmetry about II , V and both 45 degree axes« 

Number of iterations performed. 

Input variable giving the maximum number of iterations the pro- 
gram is allowed. 


Input variable indicating what antenna type is to be used in 
the synthesis, the type descriptions follow. 


ITYPE 

Antenna Type 

Source Illumination 
Used to Form 
Correction Pattern 

1 

Line Source 

Uniform 

2 

Equally Spaced 
Linear Array 

Uniform 

3 

Line Source 

Triangular 

4 

Rectangular Aperture 

Uniform 

5 

Rectangular Array 

Uniform 

6 

Circular Aperture 

Uniform 

7 

General Array 

Uniform 

GT7 

SPECPT 

SPSOR 


Input variable - First subscript of pattern array where pattern is 
to normalized to 0 dB, 

Innut variable — Number of first subscripts of CURR and CURI arrays 
Usually indicates quantization In S direction. 

Input variable - Number of points used in U direction for pattern 
arrays. 


Input variable - Second subscript of pattern array where pattern 
is to be normalized to 0 dB. 

Input variable — Number of second subscripts of CURR and CURI 
a.rrays — Usually indicates quantization .in T direction. 

Total number of antenna array elements - Used as input when ITYPE=7 


NMAX 

NORG 


Input variable — number of points used in V direction for pattern 
arrays. 

Input variable — Number of samples in original pattern 
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NUl^PAT 

NUMSKP( 

NUMTRK 

ORGCN 

ORGPR 

ORGPT 

PX 

PY 

6,4.3. 

ARAD 

CONINT 

CONLOW 

CONMAX 

CORCOF( 

CORG( 

CURI( 

CURR( 

DELCON 

DELTAS 

deltat 


Pattern number - Arbitrary sequence number for identifying 
synthesis problems. 

) Variable on disk storage. If 0 space is available on track 

corresponding to subscript number. If 1 track contains pre- 
viously generated data. 

Reference number of a single track on disk storage. 

Input variable controlling print out of contour map of origi- 
nal pattern; 0 NO, 1 YES - Default is 0. 

Input variable controlling print out of original pattern; 0 
NO, 1 YES (U and/or V axis) - Default is 0. 

Input variable controlling print out of original pattern; 0 
NO, 1 YES - Default Is 0, 

Input variable - Number of array elements in X-direction. 
Input variable - Number of array elements in Y-direction. 


Definition of Some Real Variables Used in the Program 

Input variable - Radius of circular aperture source in terms 
of a wavelength. 

Interval between contour levels of CONTUR and PATCON print 
outs. 

' Lowest contour level of CONTUR and PATCON print outs. 

Maximum level of CONTUR and PATCON print outs. 

) Correction coefficient 

) Correction coefficients (or sample values) for original 

pattern, 

) Imaginary pert of current. 

) Real part of current. 

Increment above and below a contour level for which a function 
value is said to belong to that contour when using CONTUR and 
PATCON print outs. 

Input variable - Increment between print out points of current 
distribution in S direction. 

Input variable - Increment between print out points of current 
distribution in T direction. 
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DELTAU 

DELTAV 

DIRFNL 

DIRORG 

DISX 

DISY 


Input variable - Increment between comparison points in U 
direction. Also, Increment between pattern print out points. 

Input variable - Increment between comparison points in V 
direction. Also, increment between pattern print out points. 

Directivity of final pattern. 

Directivity of original pattern. 

Input variable - Spacing between antenna array elements in X 
direction normalized to a wavelength. 

Input variable - Spacing between antenna array elements in Y 
direction normalized to a wavelength. 


F( , ) 

FDES ( , ) 

FINALS 

FINALT 

FINALU 

FINALV 

FL( , ) 

FNORM 

FU( , ) 

INITLS 

INITLT 


Current pattern value. 

Input variable - Desired pattern value. 

Input variable - Final point of current distribution print 
outs in S direction. 

Input variable - Final point of current distribution print 
outs in T direction. 

Input variable - Final point of pattern comparison and print 
outs in U direction* 

Input variable - Final point of pattern comparison and print 
in V recti on. 


Input variable ~ Lower limit on synthesized pattern. 

Factor by which pattern F( , ) is divided to normalize it 

to 0 dB at the point (MCENT, NCENT). 

Input variable - Upper limit on synthesized pattern. 

Input variable - Initial point of current distribution print 
outs in S direction. 

Input variable - Initial point of current distribution print 
outs in T direction. 


LX 

LY 

S 


Length of antenna in X direction in wavelengths - For continuous 
aperture sources this is an input variable. 

Length of antenna in Y direction in wavelengths - For continuous 
aperture sources this is an input variable. 

Source coordinate X normalized to a wavelength. 


SS( ) 


Antenna array element position in S direction - Input variable 
for ITYPE = 7. 
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STARTU 

STARTV 

T 

TT( ) 

U 

UORG( ) 

US( ) 

V 

VORG ( ) 

VS( ) 


Input variable - Starting point in U direction for pattern 
comparisons and print outs. 

Input variable - Starting point in V direction for pattern 
comparisons and print outs. 

Source coordinate Y normalized to a wavelength. 

Antenna array element position in X direction “ Input variable 
for ITYPE - 7. 

Pattern coordinate. 

Input variable — Positions of sample points for original 
pattern in U direction. 

Positions of corrections (samples) in U direction. 

Pattern coordinate. 

Input variable - Positions of sample points for original 
pattern in V direction. 

Positions of corrections (samples) in V direction. 
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6.5 Subroutine Descriptions 

The subroutines are discussed in the order in which they appear in 
Fig. 6.1, 

SUBROUTINE INPUT 

This subroutine provides input to the program through the card reader. 

The Namelist labeled PATIN is used. Of the variables in this Namelist, only 
certain ones are to be specified for different values of ITYPE. The variables 
are defined in Section 6.4. The ones which are to be provided as input for 
each ITYPE are listed below. Remaining variables for a given ITYPE are to 
be omitted from the input deck. 

ITYPE Variables to be provided as input for PATIN Namelist 

1 LY, INITLT, DELTAT, FINALT, ITYPE 

2 LY, PY, PISY, ITYPE 

3 LY, INITLT, DELTAT, FINALT, ITYPE 

4 LX, LY, INITLS, DELTAS, FINALS, INITLT, DELTAT, FINALT, ITYPE 

5 LX, LY, PX, PY, DISX, DISY, ITYPE 

6 INITLS, DELTAS, FINALS, INITLT, DELTAT, FINALT, ARAD, ITYPE 

7 ITYPE, MCUR, NCUR 

Greater than 7 SINPUT, written by user for his special problem. 

For ITYPE=7 the source arrays are sited with MCUR and NCUR. The total 
number of elements in the array should be the product of MCUR and NCUR. If 
the number of elements is not easily factorable, one could always use an array 
with MCUR3T number of elements and NCUR=1. This may require some dimension 
statement changes in the program. Two dimensional arrays for the source are 
used because of their convenience with the other source types. 
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INITLS, DELTAS, FINALS and INITLT, DELTAT, FINALT are used for prints 
of the source. 

SUBROUTINE SINPUT 

Currently this subroutine is a duinmy subprogram. Inputs for programs 
not included in ITYPE through 7 should use this subroutine. It is to be 
written and added by the user. ITYPE as used in NAMELIST/PATIN/should have 
a value of 8 or greater, SINPUT is called from INPUT when ITYPE is 8 or 
greater. 

SUBROUTINE READ (F, MMAX, NMAX) 

This subroutine is used to load any two dimensional array in the pro- 
gram by reading in values off of cards. F is any real two dimensional 
array. MMAX rows and NMAX columns are to be loaded. The program in its 
present form does not use READ but subroutines DESPAT and ORGPAT can be 
used to call READ to load FDES, F, FU, FL, CURR, CURI. The arrays F, CURR, 
and CURI are then the original pattern, real part of original current, and 
the iraagins^ry part of the original current. 

The arrays are read in row by row. A new row is begun by a new card. 
The format is 6(I3,F10.0). The integer number is a multiplier, i.e., the 
following real number is to be repeated that many times. For example, if- 
MMAX were 51 and all entries in the 5 th row were to be 0.0, the card cor- 
responding to the 5th row would have 51 in columns 2 and 3 and 0 in column 
13. 


SUBROUTINE DESPAT (FDES, FU, FL, MMAX, NMAX, STARTU, STARTV, DELTAU, DELTAV) 
The purpose of this subroutine is to return arrays FDES, FU, and FL, 
They are all two dimensional and are loaded with MMAX rows and NMAX columns. 
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There are several ways that this subroutine can be written to load these 
arrays. Subroutine READ can be called for each of the arrays, if card input 
is convenient. If the patterns can be generated from FORTRAN expressions 
easily, the arrays can be loaded in the subroutine by incrementing thru U 
and V and assigning values to the arrays. This approach often avoids the 
need for a large input card deck. 

The values of the patterns FDES, FU, and FL are to be positive real 
numbers and not dB values. This is done for computing efficiency. If one 
wishes to work with dB values it Is an easy matter to convert dB to real 
values in this subroutine using 20.*AL0G10( ). It is best for the 

pattern maximum, if specified, to be close to 1.0. 

SUBROUTINE ORGP AT (F, MMAX, NMAX, STARTU, STARTV, DELTAU, DELTAV, CURR, 

CURI, MCUR, NCUR) 

This subroutine is used to inltialire the pattern array F and current 
arrays CURR and CURI. These represent the original pattern and real and 
imaginary part of the original current distribution. The pattern arrays 
are to be specified in rows and columns starting with STARTU and STARTV 
and extending for MMAX and NMAX points with DELTAU and DELTAV being the 
separation between points. The current arrays give current values at 
positions in the ST plane which depend on ITYPE; see SOURCE. 

The program presently loads the arrays using the Woodward-Laws on syn- 
thesis method. This amounts to a iteration. First, the number of sam- 
pies in the original pattern is read in as NORG on a single card under an 
I5 format. Next the sample positions US and VS and the correction coeffi- 
cients CORG are read in on a card under 3F10.0 format. See [12] for an 
excellent discussion of the Woodward-Laws on method. Note that the Taylor 
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line source method is handled with this technique also. [13] 

If the original pattern is something which is not satisfactorily rep- 
resented by a Woodward-Lawson type pattern, the user can substitute for 
this subroutine. If the original pattern and current are experimentally 
obtained, the READ subroutine can be called to read in the values from 
cards or the arrays can be generated using analylitic functions. In ORGPAT, 
NORG should be set to sero when not using Woodward-Lawson method to generate 

original state* 


SUBROUTINE ANTSYN (ISUC, MMAX, NMAX, FDES, FU, 
IC, US, VS, STARTU, DELTAU, 

ITER, FNORM, F) 


FL, ITRMAX, ISYMM, CORCOF, 
STARTV, DELTAV, MCENT, NCENT, 


This subroutine carries out the iteration procedure. The arrays FDES, 

FU, and FL are input and are the pattern specifications loaded by DESPAT. 

F is initially the original pattern found from ORGPAT. This array is changed 
as Iterations are performed and is the current synthesired pattern state. 

The subroutine cycles, or Iterates, until either all points of F are between 
corresponding points of FU and FL or the maximum number of iterations ITRMAX 
is exceeded before each Iteration F is normalized to 1.0 at the MCENT row 
and NCENT column. If the pattern specifications are not met, SEARCH is called 
to locate where the pattern exceeds its tolerances by the greatest amount. 

The weighting coefficient as given in (3-9) is returned as VAL and then is 
loaded into CORCOF. If the correction points are close to either the U or 
V axis but not on either and the pattern is symmetric, VAL is adjusted 
because of the strong correlation between the sample and its symmetrically 
placed samples. ANTSYN places other corrections corresponding to the level 


of symmetry ISYMM. The higher the level of symmetry in the desired pattern. 


the higher the level of symmetry of the corrections. After each correction 
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UPDATE Is called to recompute the pattern; CHECK is then called to see if 
corrections have ever been applied at the latest sample points. The itera- 
tion. is now complete and control is transferred to the beginning of ANTSYN. 
This is repeated until the specifications are met or ITRMAX is exceeded. 

Then, control is returned to the main program where results are printed 
out. 

SUBROUTINE SEARCH (II, Jl, VAL, FDES, FU, FL, F, MMAX, WtAX, STARTU, STARTV, 

DELTAU, DELTAV) 

This subroutine is called by ANTSYN subroutine to locate the point 
where the current pattern F exceeds the upper and lower limit patterns FU 
and FL by the largest amount. This point is returned from the subroutine 
as II and J1 of the pattern matrices. II and J1 are also used as input and 
is the first point where specifications are not met as found in ANTSYN. 

The search begins here to avoid searching points that were covered in ANTSYN. 
The V axis is searched in increments of DELTAV for NMAX points for each U 
value, which itself is incremented in DELTAU for NMAX points. The search 
is limited to the visible region inside the unit circle. The maximum devia- 
tion above FU or below FL is returned as VAL as computed by (3-9) . The 
values of II, Jl, and VAL are printed out and flagged with **SEARCH** so 
that the user can see a "time history" of the corrections applied. 

SUBROUTINE UPDATE (IC, US, VS, CORCOF, F, MMAX, NMAX, FNORM, STARTU, STARTV, 

DELTAU, DELTAV) 

This subroutine updates the F array to keep it current. Following each 
correction the array is recomputed in this subroutine. In ANTSYN the coor- 
dinates of the correction point are evaluated after II and Jl are returned 
from SEARCH and assigned as U1 and VI and then as US(IC) and VS(IC). So IC 
..is the subscript for US, VS, and CORCOF corresponding to the most recent 
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assignments to those arrays. IC and the whole arrays US, VS, and CORCOF 
are Input to UPDATE. Then the pattern F Is calculated using these arrays 

and PAT. 

FUNCTION PAT (U, V, ITYPE) 

This subprogram returns the value of the correction function at the 
point U, V. It does this for function types determined by the value of 
ITYPE, The seven antenna types corresponding to the numbers 1 through 7 
for ITYPE as given in the Integer variable definition section of this Chap- 
ter are discussed in detail in Section 3.5. If the user wishes to use some 
other correction function, a value of ITYPE greater than 7 will make PAT 
call SPECPT to find a value. 

function SPECPT (U, V, ITYPE) 

Currently, this is a dummy subprogram. If a correction function other 
than one of the seven standard ones given in PAT is required, this function 
is to be used. The dummy subprogram is then replaced by a function which 
generates values at all points (U, V). See PAT, 

SUBROUTINE CHECK (IC, VAL, US, VS, CORCOF, DELTAU, DELTAV) 

This subroutine is used to save computing time and storage space. After 
a correction has been determined by SEARCH and applied by UPDATE, CHECK is 
called to see if the correction point has ever been used before. All pre- 
vious sample points US and VS are searched for a match to US(IC) and VS(IC). 
If a match is found the correction coefficient CORCOF^'IC) is added to the 
correction coefficient previously applied at that point. The number of cor- 
rection coefficients is thus reduced by one each time a match is found. 
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SUBROUTINE CURREN (CURR, CURI, MCUR, NCUR, US, VS, CORCOF, IC) 

This subroutine calculates the final current distribution necessary 
to produce the final pattern F. The real and imaginary parts of the cur- 
rent matrix, CURR and CURI, are initially that of the original current 
distribution (corresponding to the original pattern) as generated in ORGEAT. 
The source currents are calculated by summing all corrections together with 
the original pattern as in (3-11) and (3-12). The correction functions for 
the current are obtained from the SOURCE subprogram. 

COMPLEX FUNCTION SOURCE (M, N, U, V, ITYPE) 

This subprogram supplies values of the correction current for loading 

into the current arrays CURR and CURI at the point (M, N) for pattern 
sample point (U, V). This subprogram has seven sources corresponding to 
the seven patterns of PAT and they are flagged with an ITYPE number. If 
antennas other than these seven standard types are required, SPSOR is 
used to generate it. SPSOR will be called automatically if ITYPE is greater 
than 7. The sources in this subprogram are the Fourier Transform mates of 
the patterns in PAT. 

COMPLEX FUNCTION SPSOR (M, N, U, V, ITYPE) 

Currently, this is a dummy subprogram. It operates in the same manner 

as SOURCE. It is called from SOURCE when ITYPE exceeds seven. Then the 
dummy subprogram should be replaced by programming which generates values 
of the current distribution corresponding to the correction pattern of 
SPECPT and with correction point (U, V). The function of SPSOR and SPECPT 
should be Fourier transform mates. 
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SUBROUTINE LOCSOR (M, N, S, T) 

This subroutine is used to generate source coordinates S and T when 
given the subscripts M and N of the current arrays CURR and CURI. It 
depends, of course, on the antenna used and this is handled by the com- 
moned variable ITYPE. For ITYPE greater than seven SPLOC is called 
automatically. The coordinates S and T obtained from this subroutine are 
used by SOURCE and in the excitation print out part of the main program. 

SUBROUTINE SPLOC (M, N, S, T) 

This is currently a dummy subroutine. It is called by LOCSOR when 
ITYPE is greater than seven. When an antenna type other than one of the 
seven standard types is used, the user must supply FORTRAN coding to this 
subroutine to perform the function of LOCSOR. 

SUBROUTINE DIRCTV (CORG, UORG, VORG, NORG, US, VS, CORCOF, IC, MMAX, NMAX, 

DIRORG, DIRFNL) 

This subroutine calculates the directivity of the original and final 
patterns, DIRORG and DIRFNL. The directivities are calculated as discussed 
in Section 3.6. The patterns are generated by adding up all weighted cor- 
rection patterns. The original pattern must be of the Woodward-Lawson type. 
If this is not the case, programming may be changed to call ORGPAT for 

generation of the original pattern. 

If these directivities are desired, output the variable DIRECT should 

be set to 1 in Namelist IPRINT. 

SUBROUTINE PRINT (A, M, N, STARTU, STARTV, DU, DV) 

Subroutine print is the general output subroutine. It will print out 
co-ordinates (U, V) and values A(I, J), 10 rows and 10 columns to a page. 
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U and V are calculated as follows; 

U = STARTU + (I - 1) * DU 
V = STARTV + (J - 1) * DV 

where I and J correspond to A(I, J) , the value printed. 

The output format is such that for large sources the printout covers 
many pages. However, these pages may be pasted together to form a gird 
and then photo-reduced for ease of handling. 

PRINT may be used for all patterns and for all sources except ITYPE = 
7. To invoke PRINT code the following variables in Namelist IPRINT. 

Data Type Variable 

Desired pattern FDESPT = 1 

Original pattern FORGPT = 1 

Final pattern FDBPT = 1 

Original current ICURPT = 1 

Final current FCURPT = 1 

SUBROUTINE PROFIL (DATAl, NPT, NUMPAT) 

Subroutine PROFIL prints a graph of the data in DATAl with automatic 
scaling using NPT(NPTj<401) number of points. The abscissa is stored in 
DATAl (J, 1); the ordinate is stored in DATAl ( J , 2), 

Because the line printer is a discrete device, the axes will be quan- 
tized. However, the true value of the ordinate is printed to the right of 

the graph. 

PROFIL may only be used for pattern printouts. PROFIL gives both U- 
axis and V-axis profiles. 

To invoke subroutine PROFIL, code the following variables in Namelist 


IPRINT. 
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Pattern Variable 

Original FORGPR = 1 

Final FDBPR = 1 

SUBROUTINE CONTUR (K, L, DELCON, CONLOW, CONMAX, CONINT, A, NUMPAT) 

Subroutine CONTUR provides a contour map of data stored in array A 
(dimensioned A(51, 51). It is used primarily for two-dimensional source 
distributions. (Subroutine PATCON is used for two-dimensional patterns.) 
Contour levels between CONLOW and CONMAX differing by CONINT are printed 
on a K by L grid (K, L 51) . 

To invoke this subroutine code the following variables in Namelist 
IPRINT. 

Source Variable 

Original distribution ICURCN = 1 

Final distribution FCURCN = 1 

Separate contour printouts are given for real and imaginary currents. 

Not intended for use with ITYPE=7 patterns. 

SUBROUTINE PATCON (RDATA, MMAX, NMAX, ICODE, CONLOW, CONMAX, CONINT, STARTU, 

STARTV, DELTAU, DELTAV, NUMPAT, ISYMM) 

Subroutine PATCON provides the user with a contour map of the desired 

pattern (ICODE = 0), the initial pattern (ICOUE =1), or the final pattern 

(ICODE = 2). Contour levels are given by CONLOW, CONMAX, and CONINT. There 

may be up to 10 contour levels. In addition, if the pattern at a particular 

point falls below CONLOW, then a MINUS sign is printed. If the pattern rises 

above CONMAX, a plus sign is printed. Approximate execution time of PATCON 


is 10 seconds. 
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To invoke this subroutine code the following variables in Namelist 


IPRINT. 



Pattern 

ICODE 

Variable 

Desired 

0 

FDESCN = 1 

Original 

1 

FORGCN = 1 

Final 

2 

FDBCN = 1 

SUBROUTINE LIST (CURR, CURI, 

MCUR, NCUR) 



The purpose of SUBROUTINE LIST is to print out array element coor- 
dinates and currents for the general array source (ITYPE = 7). The coor- 
dinates (S, T) are found from SUBROUTINE LOCSOR and these are printed 
along with the appropriate value of current. 

SUBROUTINE LIST is called by coding ICURPR = 2 or FCURPR = 2 in Name- 
list IPRINT. ICURPR = 2 will list initial element currents while FCURPR = 

2 will list final element currents. 

While written primarily for sources of ITYPE = 7 , LIST may be used 

with any source. 

6.6 Statement Listing of ANTSYN 
6,6. Job Control Language Statements 


/ / r 6 A S V -- V 7L 2 f C > ) I F t Y 

TIHl -3 tK r L IN i: S ^ 1 L t t. aKL^S - 

/’^PklGKlTY PklLKlTY 
// lX^C PQRTbi i 
//Fu^T*LYbIN 1.-D - 


/ / bU .FI 2 2 F V 0 1 TH ; J S Fi= A ;’\i T D A T A • /'L ? ♦ On 1 H 

or - 

// 


33 30f VOL= bIF =UStKPK» i 


i S F 


6.6,2 Source Listing 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MAIN PROGRAM TO SYNTHESEZt A PATTERN FOR A GIVEN SOURCE. 


VERSION 3 73/16A — JUNE 13tl973 

WRITTEN RY: E. L. COFFEY 

W. L. STUTZMAN 


UNDER NASA GRANT: 47-00A-103 

language: fortran IV 

SUePROGRAMS REOUIREO: 

DIRCTV 

INPUT 

READ 

ORGPAT 

ANTSYN 

SEARCH 

CHECK 

UPDATE 

PAT 

SOURCE 

incsoR 

SPLOC 

SPECPT 

SPSflR 

SINPUT 

CUR REN 

PRINT 

PROFIL 

CONTUR 

PATCCN 

LI ST 

OFSPAT 

DATE 

ST I ME 

6ESJ 

...STANDARD FORTRAN LIBRARY SUBPROGRAMS... 


INPUT/nUTPUT SUPPORT: 

FTC5FCCI (SYSIN) — CARD READER 

FT06F001 (SYSPRINT) — LINE PRINTER 

FT2 2FGG1 ( ANTOATA- A507C2 ) — AUXILIARY STORAGE 


STORAGE RECUIREMENTS: 220K 



T 

? 

3 

5 

6 

7 

r- 

10 
1 1 

1 z 

1'3 

lA 

15 

16 
17 


16 




20 

2 1 

22 

23 

2A 

25 
2 6 
27 

26 
29 
3 0 

31 

32 

33 


C 

C KEFEHENC 6 2 V>U L* STUTZMANt "SYNTHESIS OF PENCIL- BE AM ANTENNA 

C PATTERNS WITH SIDE LOBE CONTROL,” VPUSU TECHNICAL 

C report MO- VPI- 71 - 1 , 197 U 

C 
C 
C 

CEFINE FILE 22 < 35 , 9100 , E,NR 6 C ) 


C 


INTEGER TITLE{2C) 

INTEGER NUMSKPI 35) , FOE SPT, FOE SCN , FDL SPR 

INTEGER F OR G PT ,FORGCN,FORGPR, F0BPT,FDBCN, Fre PR, DIRECT 
REAL FDES{51,51) ,FUI5l,5l),FL(51,5n,F(5l,51) 

REAL US(500),VS(500),CCIRCOF(500),CURR( 51,51) , CUR I (51,51) 
RE AL C AT A I (40 1 , 2 ) ,0ATA2( 401 f 2 ) 

REAL UCRG( ICC) ,V0RG(100) ,CORG( 100) 

real initls,initlt 

COMPLEX SOUPXE 

INTEGER FCURPT , FCURCNrFCURPR 


COMMON /MPROG/ MCUH,NCUR 

COMMON /START/ NORG , UORG , VOR G , CURG 

COMMON /PATl/ PI , P 2 , P 3 , P 4 , P 5 , P 6 , P I , SS ( 400 ) , TT ( 400 ) ,RR ( 4 JO) 
COMMON /PAT 2 / 11 , 12 , 13 , 14,15 
CCMiMON /LOG/ I TYPE 

PATA TITLP / •AMTE*,*NNA * , ' S YNT • , * HE S I * , * S PK*,*OG«A , 

73*,V164’, 


S • M * , * VERS* , • I ON 


L't'EVEL’t* I 


$ » 


VPl 


• , *F.E. • , • 


• / 


namelist /PAR am/ IDISK, I SYMM, I TKMAX , OELT AU , DELTAV , S T AR rU,ST AKTV, 
smmax,nmax,mcent,ncent 

NAMELIST /IPKINT/ FDESPT , FDESPR , FOESCN, FD 3 PT , EDBCN, FDP.PR , 

$FORGPT,R]RGCN,FORGPR,lCURPT, ICURCN, ICURPR,FCURPT,FCURCN,FCURPR, 

$CIRECT 

C 

C 

c BEGIN PROCESSING 

C 

9999 CONTINUE ^ 

RE AC ( 22 • I, 6 650) NUM P AT , NU MTRK , NUMSKP , [PASS 


eS5C FORMAK 75A4, IK 200A4 ) ) 

NUMPAT=:\UMPAT+l 
CALL DATF( I 1, JUKI) 

CALL STIMIEim 
IHR= I T/ ICOOO 

ifr=it-ihr^ioooo 

FHR=IFR/ICCCG. 

FM=FHR*6C- 

fMIN^FM 

I$!Tc=(FM-IMTN)’<'60. 

WRITE(6,1) I 1,J1,K1,IHR,1M1N,ISEC,NUMPAT 
I FORMAT! * I ANTENNA SYNTHESIS PROGRAM VERSION 3 LEVEL 1», 
$5X,'VPI EE DEPT. * ,5X, MIATE = • , A2 , , AZ , , A2 , 
f,5X,KlME= *, 12, 12,'.*, 12, 5X, 'PATTERN «,I4///) 

C 



3^ 

35 

36 
3? 
3b 
39 

Al 

^2 

A3 

A5 

A6 

A7 

A8 

A9 

50 

51 

52 
5 3 
5A 

55 

56 

57 

58 

59 

60 
61 
62 


6 3 
6A 

65 

66 
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DEFAULT PARAMETERS 

IDISK^O 

ISYMM=0 

ITRMAX=lCO 

MMAX^l 

NMAX=l 

MCENT=1 

NCENT^l 

DEITAU=0. 

DELTAV=0. 

STAKTU^C. 

STARTV-0. 

MCUR^l 

NCUR=1 

FDESPT=0 

FOESCN=0 

FD8PT=0 

FCeCN=0 

FDePR=0 

FDF5PR=0 

FdRGPT=G 

FCRGCN^O 

1CURPT=C 

ICURCN=0 

ICURPR^C 

FCURPT=0 

FCURCK=0 

FCURPR=0 

FQRGPR^C 

CIRECT^O 


FMCRM = 1 ,C 

I suc=o 

DELTAS=C, 

CELTAT=n. 


toRODUCIBIUTy OF 

fAOS 


67 


iNPur 

REAO( 5,PARAM) .. . 

i T t ( 6 t i 52 1) I D 1 SR ♦ S T A RTU t PiM AX 

'■ 'LTAVf 


l. F 0 1 S L N , J- bt\bt K‘ f !- ubi. ► 1 1. UKL ’M f rL uh. t.iM « 

^ h l.» i S P K » rU RbP R T F L E F R 1 1 C UP H K t EC uK P P 

( . XX, •POtSrI •,li, 5 X-, 'EORGP 7 r. • , 1 1 , 5 X , • F : P Pi = »ti 
4 .‘A,*lCUr.Pl ^ •,li, 5 X,*PCURF 7 = Sll/riX, 

S'FDlSCN = • , I I f 5 Xt •EUkbClM - • f 1 1 t tX , ‘ F Dtc N = • , i 1 , 5 X ♦ ' 1 CUPX 

i i 1 t 5X, » . CUKtN = ».» . 1 1 »5Xt2X/SlX, ' PDF iPR = • , 1 1 , 5X * ‘ F URUF K = 

$ 5X ♦ •EL.;:. ."R ~ • » I i ♦ 5 X , * I C. UKP R = * , 1 1 , 5 X i ' PC UR PR = *fli///) 
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71 

72 
7 3 


76 

77 


7Q 

ec 

8 i 

82 

C 

83 

66 
fi 7 
t fc 
89 

9C 

91 

92 

V. 

95 

96 

97 

9b 
99 
ICO 
101 
1C2 , 

C 

c 

c 

1C3 


CALL INPUT 

IF( 1TYPE.EQ.7*AN0.1CURPR.EQ.1) ICURPR =2 
IF (ITYPe.EO.7 .AND. FCURPR.EC.l) FCURPH=2 
CALL LCCSCR(1,1,INITLS,INITLT) 

CALL LOCSORIMCUP ,NCUR ,FI NAL S ,F 1 NAL T ) 
IF(RCUR.NE.l) DELTAS=(FINALS-'INITLS)/(MCUK-l) 

IF (NCiUR-NF. 1 ) CELTAT = (FtNALT-INlTLT )/ (NCUR-l ) 
CALL despat ( FDE St FU ,FL ,^'MAX,NMAX, ST ART U , START V t 
SDELTAUfDELTAV ) 


IF(FDESPT) 300,300,301 

301 VsRITE 16,302 1 - , , . , , 

302 FORMAT ( IH I /////////////////////////55X ,* DES IRED PATTIKN IN Ub- ) 

CALL PRlNT(FDES,MMAX,NMAX,STARTU,STARTV,D£LrAU,CELrAV) 

3CG IF(FDESCN) 303,303, 30A 
30 A CGNTIKLE 

CALL PATCGNI FOE S,MMAX, NMAX, 0,“C* 5, I . 3, 0. 2 , STARTU, S TAKTV , 
$DELTAL,nELTAV,NUPPAT, ISYNR) 

3C3 IFIFDESPRI 306,306,307 
307 IF (RMAX-LE .1 ) GO TO 30b 
WRITE(6,31CI NUI^PAT 

310 FOR^^AT ( IH 1 , ICX, • U-AX I S PROFILE OF DESIRED PATTERN *,1A// 

$12X, ’U*,16X, «VS 15X, •FDeS(U,V)*,lOX,*FUIU,V) ’ , 12X,*FL(U,V) * /) 

V=STARTV+ (NCENT-1 )*0ELTAV 
' DO 3C9 l = l,N'RAX 

U^STARTLi+I I-n*DELTAU 

309 WRITE(6,311) U,V,FDES( I,NCENT),FU( I,NCEMT) ,FLI I,NCcNT) 

311 FCRPAK 1CX,F7.A,10X,F7.A,10X,3(F9.A, lOX) ) 

30 8 IF (NMAX.EQ. 1) GO TO 306 

WRITEI6.312) NUMPAT 

312 FGRRATI IHl ,iOX,*V-AXIS PROFILE OF DESIRED PATTERN 

$12X,*UM6X, ,15X,»FCES(U,V)* ,10X,*FU{U,V)» ,12X.«FU0,V) V ) 

U = S I,ARTU+ I KCEN r - 1 ) *OEL T AO 
DO 313 J^1,NRAX 
V=STARTV+ t J- 1 ) *PELTAV 

313 WR ITE (6, 31 1) U , V , FOE S ( MC ENT , J ) , FU ( MC ENT , J) ,FL(MCENT, J) 

306 CONTINUE 


ENTER ORIGINAL PATTERN 

CALL CRGPAT ( F ,RNAX,Nf^AX,STARTU,STARTV, DELT AUfDELTAV, 
SCURK ,CUR I ,MCOR,NCUR ) 


1C A 
105 
] C6 
IC 7 

ICE 
’ C9 

flO 

111 
1 12 


C 

C OUTPUT CF ORIGINAL PATTERN 

C 

IF(FORGPT) ACC,ACC,AOl 
AOl WRITE(6,A02) 

AG2 FCRRAT(Uil///////////////////////>'/‘^^^»**^l^^*^ PAffrRN' ) 
CALL PKINTIF A X,NM AX, S TARTU, START V,ObLTAU,DELTAV) 

C 

AGO IF(FORGCN) ao3,A03,AOA 
AO A CONT INUE 

CALL pATC^f^!(F,RMAX,N^'AX,l,-0•5,1.3,0.2,STAK^U,S^AR^V,DLLTAU, 
$DELTAV, NUMPAT ,1SYMK) 

A03 IF(FORGPR) AC6,AC6,AC/ 

AO 7 CONTINUE 



A-29 


113 
1 lA 

115 

116 

117 

118 
119 
12C 
1?1 


^09 


DC AOS J=lfA01 
U=( J-l )-C.C05-l.C 

v=y 

SDMJ = 0. 

su^*v=c^ 

CO A09 K=l,NORG 

SURU = SU^^U+CORG ( K ) AT ( U-UORG( K ) n-VORG ( K ) f I T YPE ) 
SUKV-SUMV-frCnRG(K)«PAT(-UORG«K) ,V-VORG<K) # I TYPE) 
c G N T rr^ ... 


12 ? 

123 

12A 

125 

126 

127 

128 

129 

130 

131 

132 
1 33 
13A 
135 


136 
13 7 

138 

139 
1 AO 
lAl 
1A2 
IA3 
lAA 
1A5 
1A6 
1A7 
1 A8 
1A9 

150 

151 

152 

153 


15A 

155 

156 

157 

158 

159 

160 

161 

162 


DATAl ( J, 1 )=U 
DATA I ( J,2) = 5UMU 
DAT A2 ( Jt 1 )=V 
DATA2( Jf?)=SUf^V 
A08 CONTiNUt 

IF (NMAX.LE*! ) GC TO 2801 
WRITE<6,A10) 

AlC FORNATUHl ,25X, * U-AXIS PROFILE OF INITIAL PATTERN*) 

CALL PRCFlUDATAltACl.NUMPAT) 

2801 IF(NMAX.LE.I) GO TO A06 
WRITE{6.All ) 

All FCRYAT(lhU25X,*V-AXIS PROFILE OF INITIAL PATTERN*) 

CALL P8GFIUDATA2,A01*NUMPAT) 

AC 6 CONTINUE 

C ORIGINAL EXCITATION 

C 

IF(ICURPT) 5CC»5CO*50l 

501 W«ITE(6t502) 

502 FCRRAT I IH 1 ///////// ///////////////-^^^^^ t * INIT I AL CURR*) 

CALL PRINT(CURR»MCUR«NCURfINlTLSfINITLT*D£LTAS»OELTAT) 
WRITEC6*582) 

562 FOR PAT ( IH I/////// //////////////////55Xt* INITIAL CURl*) 

CALL PR I NT (CUR I ,PCUR ,NCUR ,INITLS#1NITLT*DELTAS, DELTA!) 

500 IF(ICURCN) 503»5C3,5CA 
50A WRITE(6»505) 

505 rORPAT( lHl//////lOXt * INITI AL CURR’) 

CALL CONTUR( MCUR»NCUR*0.CC5»-0*0A,0.0A, 0.0, CURR, NUMPAT ) 

WR ITE (6,565 ) 

585 FCRPAT(lHl//////lOX ,* initial CURI*) 

CALL CON T UR ( PC UR , NC UR , C . CC 5 , -C . OA , 0. 0 A ,0.0, CUR I ,NUPPAT ) 

503 IF(ICURPR-I) 506,507,51A 
507 IF(MCUR.LF.l) GO TO 508 

WRITE(6,51C) 

510 FORMAT ( IHl , lOX, * S AXIS PROFILE OF INITIAL CURRENT*// 
S13X,*S*,17X,*T» ,18X, *REAL* ,12X, * I P AG I N AR Y • , 1 OX , * P AGN I TUDf * , 
1 12X, *PHASE * / ) 

J=NCUR/2+l 

DO 509 I=1,MCUR 

CALL LGCSGRi I , J,S,T, I TYPE) 

AP AG= SCR T (CURR ( I , J ) ^*2+CUR I ( I,J)^^2) 

IF ( APAG.rC-O- ) APH=0. 

IF ( AMAG.tO . 0. ) GO T(i 509 

APH=ATAN2(CURI ( I,J) ,CURR( I* J) ) ^5 7 .2957 795 
5C9 WRI TE (6 ,511 ) S,T,CURR( I , J > ,CURI ( 1 , J) , AMAG, APH 

511 FORMAT(9X,F6.A,9X,Fe.A,10X,A(ElA.7,5X) ) 
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163 
16 A 
I 6 


166 

U7 

168 

169 

17C 

171 

172 
1 7 3 
17A 

175 

176 

177 

178 


1 79 
18C 
18. I 
182 
183 
I 8A 


185 

186 

187 

188 

189 

190 

191 

192 


19? 
19A 
19 5 

196 

197 
196 


199 

2CC 

201 

2C2 

2C3 


508 IFlNCUR.LE.l) GO TO 506 
WRITF(6,512) 

512 format ( IH l, lOX, »T AXIS PROFILE OF INITIAL CURRENT*// 

$13X , • S* ♦ 17X, *T * » 18X, 'REAL* ♦ 12X, * IMAGINARY* * lOX, *MAGN I TUOf. • , 
$12X, »PHASE’/) 

I=MCUR/?+l 

DC 513 J=l,NCUR 

CALL LGCSORI U J,S,T, ITYPE ) 

CR=CURR(I*J) 

C I=CUR I ( I , J ) 

AM A G= SORT ( CR*CR+CI*C I ) 

IF ( AMAG.EG.O. ) APH=C, 

I F( AMAG.EC.O. ) GG TO 513 
APH=ATAN2(C1 ,CR)*57.2957795 

513 WRITE(6,51l) S , T ,CR * C I * AMAG , APH 
GG TO 506 

51A WRI TE (6,515) 

515 FORMAT! IH1///10X, 'INITIAL ELEMENT CURRENTS *// 5X , 

.$* J* , lOX, 'S* , 15X, *T* , 15X, *CURR* , 1 IX, *CURI • ) 

CALL LI ST ! CURR,CUR I , MCUR,NCUR > 

506 CONTINUF 

rc-0 

VhR I TE ( 6,4747) 

4747 FORMAT(lHl) 

CALL ANTSYN (I St'C ,MMAX,NMAX ,FDt S ,FUfFL , I TRMAX , 1 SYMM , CORC(JF , IC ,U 
$ ,VS,STARTU,DELTAU,STARTV,DELTAV,MCENT,NCENT, I TeR,FNORM,F ) 

C 

C PRINT OUT RESULTS 

C 

WRITE (6, 391 ) 

^91 52X, • — FINAL CnEFFjCiENTS ~ “*//<» 5X ,* J* , 7 x 

* *US( J ) * , 7X, * VS( J) * , 5X, »CORCOF( J) • // ) 

IF(IC.LE.O) WRITE(6,977) 

977 FCR«AT( lOX, *N0 ITERATIONS PERFOHMEU*) 

IF( IC.Lf.O) GO TO 978 

CO 496 J=1 , IC 

498 WRITE(6,35) J , US ( J ) , VS ( J ) , CORCOF ( J > 

35 FORMAT! 44 X, I 3,5X,F 7,4 ,5X,F7«4,5X,F7.4) 

wKIlt (0,3^7^ ) 

3c 7** f jKMA r I ///h 5X, • J * ,oX, *UOR& ! J) * »3X , • VDFG( J ) • ,6X, 'CriRC! J ) */) 

JO J>hll J^lfNUKL 

3. V7 J,UORG!^n ,VURG! J) fCtjKG! J) 

WR ITE !6,497) I TER 

497 FORMAT! IH0,9X, *NUMBER OF ITERATIONS = *,I6) 

WRITE(6,496) FNQRM 
496 FORMAT! IHG,9X, *FNORM ^ *,F10.5) 

WRITE (6,976 ) NUMPAT 

976 FORMAT! lhO,9X, * PATTERN NUMBER = NUMPAT = *,15) 

r 

V- 

C OUTPUT FINAL PATTERN IN HU 

C 

978 CDNriNUF 

on 29 J= 1 ,MMAX 
DC 29 K=l,NMAX 
IF!F!J,K)) 290,289,290 
289 F! J,K)=-2CC. 
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20^ 

2C5 

2Q6 

C 

C 

2C7 

2C8 

209 

21C 

C 

211 

212 

213 

21A 


GO TO 29 

29C F( J ,K)=20.»ALCGin { ABS (FUf K ) ) ) 

29 CONTINUE 


IF(FDBPT) 600,600,601 

CALL PKINKF, M^^AX,N^< AX, START U,SrARTV,DELTAU,DFLT AVI 


600 IFCFOeCN) 603,603,60A 
60A COMINUF 

CALL PATC0N(F,MMAX,NMAX, 2,-^5 
$CELTAU,0ELTAV,NUMPAT t IS VMM ) 


,0. 0,5.0, STARTU,STARTV 


603 I F ( FOR PR ) 606 ,606,60 7 


t 


215 

216 

217 

218 
219 


607 CONTINUE 

CO 608 J^l,40l 
U=( J-1)^C. 005-1.0 
V = U 

SUPU=0. 


\ 


22C 

221 

222 

223 

224 

609 

225 

2?.t 

227 

228 

229 

230 

231 

608 

232 
23 3 
234 

610 

235 

236 

2 901 

237 

236 

611 

239 

24C 

606 


c 

' c 
c 

2Al 

2A2 

C 

C 

c 

2A3 

2^^ /O I 

245 702 

24 6 

247 

248 782 

249 

250 7CC 

251. IQ 4 


SUf' v = o. 

DO 609 K = 1 ,TC 

SUMU-SUMU+CfiRCOF(K)^PATIU-US(K) ,-VSlK) ,lTYPb) 
$UPV=$UPV+CnRCOF(K)*PAT (-USI K) ,V-VS(K) , [TYPE) 
COM INCr 
OATAl ( J, 1 )=U 
DATA2 (J, I )-V 

nATAl(J,2)-DATAl (J,2)+SUPU 
DA1A2( J,2)-DATA2.I J,2) + 5UMV 
GATAl (J,2)=0ATAi(J,2) ♦FNORM 
0ATA2(J,2)-CATA2(J,2) *FNGRM 
COM IMje 

IF(PPAX.LL.I) go to 2901 
WRITfc(6,6lO) ? 

FCRPAT ( IHl ,25X, *U-AX IS PROFILE 
CALL PROF I L ( DATA I ,401 ,NUMP.AT ) 

IFINPAX.LE.1) go to 606 
WRITE (6,611 ) 

FCRPAT ( IHl , 25X, * V-AX I S PROFILE 
CALL PROFIL I DATA2,4G1 ,NUMPAT ) 

CONTINUE 


1 F ( FCURPT+FCURPR+FCURCN .LE. 0) GO TO 706 

CALL CUR«EN(CURR,CURl ,MCUR,NCUR,US,VS, CORCOF , ICl 

FINAL EXCITATION 

iF(rCURPT) 700,700,701 

WRITE(6,702) . ^ 

FCRP AT ( I HI ^ ^ ^ ^ ^ ^ 

CALL PRINT(CLiRR,PCUR,NCUR, I N I T L S , I N I TLT , DEL T AS , OE LT AT ) 

WRITE (6,782) 

FCRNAT(1H1///////////////I/^^^^^ ^ //55X, *FI NAL L UR I * ) 
CALL PRINT (CURI , NCUR , NCUR , £ N I T L 5 , I N I T L T , CELT AS , DEL I AT ) 
IF(FCLRCN) 703,703,704 
WR I TE]6j_IQji) 


Of final pattern* ) 


OF FINAL PATTERN*) 
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252 

253 
25A 

255 

256 

257 

258 

259 

260 


26 1 
262 
26 


7 C 5 FCRNAT(lHl//////lOX,'F[iMAL CURRM 

CALL CGNTURf MCUR »NCLRt C* 0 05 ,- 0 . 04 , 0 . 04 », 0 . 0 , CUR?^»NUMP AT ) 
WRITE( 6 , 765 ) 

785 FC 9 ^'AT( lHl////// 10 X, ‘FINAL CUKl') 

CALL CONTURI P*CUR,NCUR, 0 . 005 ,- 0 - 04 , 0 . 04 , 0 . 0 , CUR I ,NUMPAT ) 

703 IF(FCUKPR-l) 706 , 707,711 

707 IF ( RCUR.LE. 1 ) GO TO 708 
V»RI TF ( 6 , 710 ) 

71 C FGRMAT( lhl,lCX,»S AXIS PROFILE OF FINAL CURRENT*// 

$ 13 X,‘S*, 17 X,‘T‘, 18 X,»REAL*, 12 X,* IMAGINARY* , lOX, 'MAGNITUDE • , 
$ 12 X, 'PHASE*/) 

J=NC 0 R/ 2 +l 
CC 709 I=l,MCUR 

CALL LCCSCRI I ,J,S,T,IT]^PE) 


26 A 

265 

266 

267 

268 
269 
27 C 

271 

272 

273 


27 ^ 

275 

276 

277 

278 

279 
28 C 
28 I 
282 
28 3 
28 A 
265 
286 

287 

288 


289 

290 

291 

292 

293 
29A 

295 


CR^CUKR ( I, J ) 

CI^CURI ( I , J ) 

AMAG = SCKT (CR^'CR + C I^C I) 

IF { AMAG.EO.O. ) APH=0. 

IF{ AMAG.EC.O. ) GO TO 709 
APH= AT AN2(CI ,CR )«57. 2957795 
7C9 WRITE(6,511) S , T ,CR , C I , AMAG , APH 
C 

708 IF(NCUR.LE.l ) GO TO 706 
WRITE (6,712) 

712 FORMAT! IHI, ICX, * T AXIS PROFILE OF FINAL CURRENT*// 
$13X,»S*,17X,*T*,18X,»REAL»,12X, * IMAGINARY* , lOX , *MAGNI TUOE * , 
$12X, * PHASE*/ ) 

l=MCUR/2+l 

DC 713 J=1,NCUR 

CALL LCCSCRd , J,S,T, ITYPE) 

CR^CURRI I , J) 

CI = CIIRI ( I , J ) 

AMAC = S(DRT(CR»CR + CI’^CI ) 

IF ( AMAG.EO.O. ) APH=C. 

IF ( AMAG-EQ.C. ) GC TO 713 
APH-ATAN2 (C I ,CR )*57.2957795 

713 WR1TE(6,511) S , T , CK , C I , AMAG , APH 
GO TO YC6 

71 1 WR ITE (6,714 ) 

714 FORMAT! 1HI///10X, *F INAL ELEMENT CURRENTS * //5X , 
$*J*,ICX,*5*,15X,»T* ,15X, *CURR* ,15X, ‘CURI * ) 

CALL LlSKCURR.CURl ,MCUR,NCUR) 

?06 CONTINUE 
C 
C 

ICOLINT^iNUMPAT 

WRITE (22* 1 ,8850) [COUNT ,NUMTRK ,NUMSKP, I PASS 
IF (DIRr.CT. EQ. C) GO ”T0 9"998 

CALL DIRCTV! CGRG , UOR G , 70RG , NURG , US , VS , CCiRCfiF , I C , MMAX , NMA X 
$01 HCRG,CIRFNL > 

WR I Tf ( 6 , 6 789) 0 I RORG , D I KFNL 
6/89 F0mv.at(*1 DIRORG = *,F7-2,* OO . • / 

$•0 CIRFNL - »,F7.2,* (K3. * ) 

9998 CONTINUE 
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;i 

2^8 
2^9 
3CC 
3C 1 
3G2 
3C3 
3C^ 


30 5 
306 


3C7 


30 8 
3C9 

31 C 

3X1 


312 


313 

31 A 

315 

316 

317 

318 
319 
32C 

32 I 

322 

323 
32^ 
32 5 


326 
32 7 
328 


331 



IF( lOISK.EG.C) GO TG 9997 

IF (IDISK.CG.I .AND* ISUC.NE. 1) GO TO 9997 

C DISK CUTPUT 

Cn 7CCC J=2.35 

IF(NUKSKFMJ) .EO. 0) GO TO 7001 
7CCC CONTINUE 

7C02 FORMM^’C NO DISK SPACE AVAILABLE — DATA NOT STORED*) 

GO TO 9999 
7001 CONTINUE 
C 

c SPACE IS AVAILABLE ON RECORD *'J” 

C 

NijMSKPU)^! 

WRITE(22*lf«850) NUWPAT t J tNUN SKPt I PASS 

V<RITE(22*J,885C) NUMP AT , T I TLE , ISYMK, ITER, ISUC , FNURM , IDISK, 

$NORG. ICt (UCRG(M) ,VORG< M) ,CCRG(M) ,M=1,N(JRG) , 

$(US(!^),VS(P) *CORCOF(M),M^l,IC).ITYPEtPl,P2,P3,PA,P5,P6, 

$PI , ( SS(P) tTT (M) ,P^1»A00), II. 12, 13, lA, I5,MCUR,NCUR 

WRITE (6,7003) NUMPAT,J 

7003 FCRPAT(*0 PATTERN NUMBER *.IA,* HAS BEEN SlflHEi^ f)N KcCUKD*, 

$IA,* OF ANTOATA, A507C2* ) 

9997 GO TO 9999 
END 

SUBROUTINE Cl RCTV < CORG , UGRG , VORG , NDRG , US , V S , CORCOF , I C , MM AX , NM AX , 

I C IR0RG,CIRFNL ) 

C THIS subroutine CALCULATES THE DIRECTIVITY OF THE ORIGINAL PATTERN 

C ,DIRCRG, AND OF THE FINAL PATTERN, UIRFNL 

DIMENSION CORG (ICC) ,UORG( ICO) , VORG ( 100 ) ,US ( 500 ) , VS ( 500 ) tCOKCOF (500 

$ ) 

CCMMCN /LCC/ ITYPE 
FORGSC=C. 

FSC=n. 

FMAX1=0. 

FMAX2==0. 
on 1(1 J=l,10 1 
U=- 1 .C+( J-1 ) *C.C2 
CC 10 Keltic I 
V=-1.0+{ k-1 )«0.02 
UVSC = L=f'L-«-V«V 
F-0. ' ‘ 

IF (UVSC.Ce. 1 .0 ) GO TO 10. 

c 

c 

IF (NCRG.LE.O) GO TO 25 
CC 20 L=l,NCRG 

2C F = F+CORG ( L )4=PAT( U-UCRG( L) , V-VOR&( L) ,1 TYPt ) 

FCRGSC-FCRGSG+F«*2/S0RT ( 1.0-UVSQ ) 

IF(ABS(F) .GT. FMAXL) FMAX1=ABS(F) 

_ 25 CONT INUE 
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33 ? 

_/■ .j-m 

335 
3 36 

33 7 

338 

339 
3^C 

34 I 
34? 
34 3 


34 4 

345 

346 

347 


FSC^FCKGSQ. 

FPAX2=FVAX1 

IF( IC.UE*0) GO TO 1C 

CO 30 L-l,lC 

3C F = F + CCRCCF (L )*PAT (U-US ( L) » V-VS ( L ) , ITYPfc ) 
FSG=FSC+F««2/S0RT( 1. 0-UVSQ) 

IF( ADS(F ) .GT.FHAX2) FMAX2=ABS(F) 

IC CCMINUE 

FOR GSO =FGRG SC* 0. 0004 /F MAXI 
FSC^FSG^C*CCC4/FMAX2 
C IRCRG=4 .0^3 . 14 159265/ FORGSO 
DIRFNL=4.0^3.14159265/FSO 
C 

c 

DIR0RG=lC.*At0G10(DIR0RG) 
C/IRFNL=lO*«ALCGlO(OTRFNL ) 

RETURN 

ENC 


348 

C 

34 9 
35C 

C 

_ C 
351 
35? 

35 3 

354 

355 

C 

C 

356 


357 

35 8 

359 

360 
361 
36? 

363 

364 

36 5 

C 

C 

366 

367 

3 

37C 

37 1 


SURROUriNE INPUT, 

INTEGER PX,PY 

REAL LX,LY, IMTLS, INITLT 


CGMMCf^ /PATl/ PlfP2fP3fP4»P5fP6,PIfSS(400)*TT(40G) ,KR(4 00) 

CCNMGN /P AT?/ 1 1 • 1 2 , 1 3 , 1 4 , I 5 

COMMON /LOG/ ITYPE 

COMMON /MPROG/ MCUR,NCUR 

CCMMCN /SYN/ LX,LY 


NAMFUIST /PATIN/ L X , L Y , P X » P Y , 0 I S X , 0 1 SY , I N I TL S » DE L T A S , F I N AL S , 

$ INI TLT, DEL TAT, FINAL! ,NELMT ,ARAD, I T YPF , MCUR , NCUK 

WRITE(6,10) 

1C FORMAT ( //////55X , •SOURCE SPECIFICATIONS*//) 
pi-3.14159265 
READ( 5*PATIN) 

IF( ITYPE.GT.7) GO TO 990 

GO TO (100,200,300,400,500,600,700), ITYPg 
WRITE(6,2G) ITYPE 

2C FOR M at ( IHO , 5 X , * ’^♦♦ERROR*^^ ITYPE HAS THE VALUE • , I 1 I , * 3 * , 2 X , 

$»exl-cuticn terminated*) 

STOP 


ICC Pl-LY 

P2=INITLT ■ 

P3^DELTAT 

LX-C.O 

NCijR=(FINALT-INITLT )/DELTATi'1.5 
MCLR-l 
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8 


37 ^ 


3 75 

376 

377 
376 
379 
36 C 
38 I 
382 


383 


38A 

385 

386 

38 7 
388 

391 


39? 


39 3 
39A 

395 

396 

397 

398 

399 
^CC 
AC I 

AC? 


A03 


5 

AC6 


WRITe(6,10l) LY, IN1TLT»FINALT.DELTAT,NCUR 
ICl FORNSAT < ICX* * 1 TYPE = 1 — UNIFORM LINE SOURCE *// 1 5X ,* LY = *,F/*3// 

$15X, * IKM TLr^FlNALTtDeLTAT: • , 3< 1X,F8*A I //15X, •NUMBER OF SAMPLE POlfsi 
$TS = NCUR = • , 13) 

GO TO 999 
C 
C 

2CC Pl^LY 
ll^PY 
LX=C.C 
P?=CISY 
NCLR=PY 
MCt’R = l 

WRITE(6,2Cl) LYtPY,DISY 

201 FORMAT ( 1 OX, • I TYPE = 2 — UNIFORM LINEAR ARRAY'// 

S15X,»LY = • ,F7.3//15X, 'NUM3EK OF ELEMENTS = ' , I 3/ / 1 5X , ' I NT F R-EL E ME 
$NT SPAC ING ^ * ,F6.3) 

GC TO 999 
C 
C 

3CC Pl=LY 
LX=0.0 
P2=INITLT 

P3=0ELTAT 

KCUR=(FINALT-INlTLn/UELTAT + 1.5 
MCLR^l 

WR ME <6,3Cl ) LY, INI TLT ,F I NALT , DELTAT ,NCUR 
3C1 FORM at { 1 GX , * I T YPE=^3 — TRIANGULAR LINE SOURCE'// 

$15X,'LY - * ,F7.3//15X, 'T VARIES FROM ',F8.A,* TO ',F8*A,5X, 
t'CELTAT = * ,F6. 3//1 5X, 'NUMBER OF SAMPLE PCINTS = NCUR ^ ',13) 

GC TO 999 


ACC Pl-LX 
P2 = LY 
P3=INITLS 

pa=initlt 

P5=CELTAS 

P6=DELTAT 

MCUR=^(FIMLS-IN1TLS )/DELTAS + 1.5 
NCLR = (F INALT-INITLT) /DELTAM-l, 5 

WRIT£(6,A01) LX,LY, I N I TL S , DEL f A S , F I N AL S, I N I TL T , DE L T A T , F I NAL T ,MCIJR, 
$NCUR 

Ad FCRMATI LCX , • ITYPE=A — UNIFORM RECTANGULAR APERTURE'// 

$15X, 'DIMENSIONS = LX,LY = *,F7*A,' , *,F7.A// 

$15X, • IN MLS, DELTAS, FINALS; 'tilFb.AflX)// 
Si5X,»INMLT,DELTAT,FTNALT: ',3(F8.A,1X)// 

$15X, 'MCUR,NCUR : •,2(I3,?X)) 

GC TO 999 
C 

c 

5CC PMLX 
P2 = LY 
Il^PX 
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AC7 

9 

^IC 

411 

412 

413 


4 14 


415 

416 

417 
41 fi 

419 

420 

421 

422 

423 

424 

425 


426 


427 

420 

429 

430 

431 

432 

433 

4 34 

435 

436 

437 
430 

439 

440 

441 

442 
' 4 3 


12^PY 

P3=CISX 

P4=DISY 

KCUR=^I1 

NCLR=I2 

WRITH(6,5C1) LX,LY,PX,PY,DI SX»DI SY 
501 FOP N* AT ( 1 (JX ♦ • I T YP E=5 — UNIFORM RECTANGULAR ARRAY*// 

$15X, ’CIMENSIONS = LX,LY = *,F7,4t* , »,F7.4// 

$15X, 'NUMBER OF ELEMENTS = PX,PY = *,I3»* . *»13// 

$15X, • INTER-ELEMENT SPACING = DISX,DlSY = »,F6.3»* . ,F6.3) 

GO TO 999 
C 

c 

6CC P1=ARAD 

P3^INITLS 

P4=INJTLT 

P5=CELTAS 

P6=DELTAT 

LX=ARAU*2. 

LY = LX 

MCUR= (F INALS- INI TLS } /DELTAS+1 .5 
NCLR=(FINALT-INITLT ) /OFLTAT+1-5 

WRITE (6,601) ARAD, IN I TLS, DELTAS, FINALS, INI TLT,D£LTAT,FINALT,MCUR, 

^NCLR - . 

601 FORM A T ( I CX , * 1 TYPF = 6 — UNIFORM CIRCULAR APERTURE*// 

$15X,*ARAC = • ,F7.3//15X, • INITLS, DELTAS, finals: • , 3(FB.4 , I X) // 

S15X,* INITLT,I:)ELTAT,FINALT: *,3(F8.4,1X)// 

f 15X , »MCLK,NCUR: *,2(13,2X)) 

GG TO 999 
C 
C 

7CC I1=MCUR 
I2=NCUR 
L X = 1 . 0 
LY^l.C 
NELMT=I 12 
WRITE(6,701) 

701 FORMAT! ICX, * ITYPE=7 — GENERAL ARRAY*// 
$15X,*ELEMENT*,7X,*SS(J)*,14X,*TT(J)») 

DC 702 J=l,NELVT 
REAC(5,7C3) SS(J),TT(J) 

703 FORMAT ( 3F 1C, C ) 

WRlTt(6,704) J,5S(J),TT(J) 

704 FORMAT! 17X , I 3,5X,3(£14*7,5X ) ) 

7C2 CONTINUE 

GO TO 999 

99 0 CALL S INPUT! PX , PY , D I SX , 0 1 S Y , I N I T L S , DLL T AS , F I N AL S , iNiTLT, 

$UEL TAT ,F INALT ,NFLMT , ARAD , I TYPE ) 

999 RETURN 
END 
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^A8 

AA 9 

A5C 

A 51 

A52 

A 53 

65 A 

A 5*3 

A 5 t 

A57 

A58 

A59 

A 60 

A61 

A62 


A61 

A6 A 
A65 
A66 
A6 7 
A68 
A69 


A 70 
A7l 
^7 ? 


SUBKOUTINt HEAD ( F t AX, NMAX ) 
DIWENSICN F(5l,5l),I(6),VAL<6) 
CO 100 J-1*MMAX 
K2-0 

2CC CONTINUE 

REAC(5,1) ( I(L ) fVAU L) ,L=1»6) 

I FCRNAT (6 ( 13* FlC .0 ) ) 

DC 20 L=l*6 
ii=nt) 

IFUI.EC.O) GO TO 100 
K 1 ^K 2+1 
K2^Kl + M- 1 
DO 10 K=K1*K2 
1C F(J,K)=VAL(U 
2C CONTINUE 

IF1K2.LT.NWAX) GO TO 2C0 
100 CONTINUE 
RETURN 
FNO 


:.UCrU}UT IN- i)v ( hUh E , f U ♦ Fl - 1 MM A X , : 1 A K HI , STAin V.r5 1. ITAU » 

iO&LTAVI 

0 1. h t N5 I i.’N E u; c i (31,il)»rU(Eil*hl)* fL ( I. , SI I 
C 

C THIS LLaLS The UESIRiI; f'/ TTT KN AND UPP0^ aNI LOv-n R lIHIT^: 

c 

CALL K h AIM F- [A E , M KA X * N HA X ) 

CALL K L. aD ( K U , MNA X , NMA A I 
CALL R(iAO{FL,MMAX,Ny!AX ) 

RETURN 

tHV 


SUBROUTINE ORGPAT (F,RMAX,NMAX, START U, ST ARTV ,UFL TAU*OELTAVtCURR, 
JCURI *,NCUR.NCUR) 

REAL F (Sl,51 ) *CURR< SltSl ) ,CURI( 51*51 ) 

REAL UCRG( ICC) ,VCRG( 100) ,CCRG( 100 > 

COMPLEX SOURCE 
CCRPLEX TEMP 

COMMON /START/ NORG * UORG , VORG, CORG 
COMMON /LOC/ ITYPF 

THIS CRG PAT ’will EE "WOOOW ARD-L AWSON” INPUT. 

CO 10 M=l,MMAX 
DC 10 N-1*NMAX 
1C F(M,N)=C, 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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<1 7 3 

75 

-.76 

477 

478 

479 
460 

481 

482 

483 

484 

485 

486 

487 
486 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

To 

5C1 

5C2 

503 


5C4 

5C5 

5C6 


5C7 

5C6 

509 

51C 

511 

51? 

513 

514 

515 

516 


DO 15 H=1,MCUR 
DC 15 N=1,NCUR 
CURRC^,N)=0* 

15 CURI(F,M)=C. 
hRITE(6,l7) 

17 FCRf^AT(lHl,50X,»— INITIAL CGEKFICItNTS — • //45X, » J » , 6X, 
$*liORG ( J » • ,^Xt * VORG( J) • ,6X, *CORG( J) • / ) 

READ (5*1) NORG 

1 FORKAT(I5) 

DG 20 !C=1,NC8G 
RFA0{5,2) UStVStCORCGF 

2 FORMAK 3F1C.O) 

LGRG( IC)=US 
VORG(IC)=VS 
CGRGf IC ) = CCRCGF 
DC 30 M=1,MMAX 

U = STARTU+(N~1 )4tDELTAU 
DC-U-US 

DO 30 N=1*NMAX 
V=STARTV+ (N-l )*DELTAV 

ov=v-vs 

3C F(M,N ) = F(M,N)+COrCOF*PAT(OU,DV, I TYPE ) 

DC 40 1^=1, MCUR 
DC 40 N=l,NCLiR 

TFr'P = SOLRCF(M*N*US,VS* I TYPE ) 

CURR (PtNJ^CURRIM^NJ+CORCOF^REAU TEMP) 

4C CUR I (M,N)=CURI ( ^^ * N ) +CGRCOF* A I MAG ( T EPfP ) 

WR ITE (6, 50 IC*US,VStCORCOF 
50 FORMAT (44 X, I 3 , 5 X * FT . 4 , 5X , F 7 . 4 , 5X , F 7. 4 ) 

20 CGNTINUl 
RETURN 
END 


subroutine ANTSYN( ISUC,MMAX,NMAX,FDtS*FU,FL, ITKMAX, I SYMMtCORCOE , 
SIC *US*VS , STARTU,DELTAU,STARTV*OELTAV,MCENT*NCFNT* ITER,FNORM,F ) 
REAL FDES( 51 *51 ) *FU( 51 * 51 ) #FL ( 51 , 51 ) * F ( 51 ,51 ) 

IIEA L _US_( 500 ) , VS ( 500 ) , CORCQF ( 500 ) CGkG ( 1 . u ) , V( fu. (1 i C ) , C 0K(. ( ICG ) 
real LX,LY*LXY 

/L TaKT/ NOKb ,UtJRG,VOkG ,C0RG 
COMMON /SYN/ LX,LY 
LXY=1,/AMAX1 (LX,LY) 

1TER=0 

27 I TFR=ITER+ 1 

NORMALIZE... 

FBIG^F(MCEKT,NCENT) 

DO 150 M=1,MMAX 
DO 150 N=1*NMAX 
15G F(M,N)=F(M,N)/FBIG 
FNCRM=FN0RM/F8IG 
00 151 I-1*N0R'G 
151 caft&( I ) -CORGI I )/F6io 
lFUC.Li.O) GO TO 153 
LG 1 5 2 1 - 3 * i C 

i5? COKC.JF ( i )-GORCDM I i/FDIG 
153 CONTINUc. 
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519 
5 ?C 
521 
S 27 
52 3 
52 ^ 

525 

526 

527 


528 

529 


. 3 C 

531 

532 

533 
53 A 
535 


536 

537 


5.38 

539 

5 A 0 
5A1 
5A2 
5A.3 
5^4 
545 
5 4 6 
54 7 
^•4 6 
i 9 
5 5 0 


C 

r 

C 

c 

c 


c 

c 

c 


c 

c 

c 

c 


— ITtRATlQN PKOCfcDURt — 


Itii- IF 5PtCS ARE MET* 

DL) J~i 

U-S7ARTU+ ( J-i )*DLL7AU 

(-.0 2*^ «<.=-! ,JjMAX 
V-STaRI » ^DLLT AV 
U V S U ~ vi ^ u-*- V ^ V 

i F ( UVS W , 1 ) GU TU 24 

IF(FOE$( J,K) .EC.99. ) GO TO 24 

IF(FL{J,K).LE.C. 00001 .AND. ABS ( F ( J , K ) ) . LF . 1 . E-4 ) GO TO 24 
Xl-ABS(F( J*K ) ) 

IF(Xl.GT.FU( J»K) ) GO TO 25 
IFCFU J,K).EC. 99.0) GO TO 24 
IF ( X1.L7.FL ( J,K) ) GO TO 25 

24 CONTINUE 
ISCC=1 
!C= IC + 1 

SPECS .ARE met — PROCEDE TO PRINTOUT. 

GO TO 75C 

25 CONTINUE 

SPECS ARE NOT MET AT POINT (J,K) 


IC^IC+1 

IF ( I TFK/ICC^=1CC .EO. ITER) WR I TE ( 6 , 7 1 I 7 ) ITER 
7117 FORMAT! lOXt I6t ' ITERATIONS COMPLETED*) 

IF IITER-ITRMAX ) 22,22.23 
23 VsRITE(6,34) ITRMAX 

34 FORMaTI IHC. 9X, 'NUMBER OF ITERATIONS EXCEEDED*, 15/ 
tlOX,*PRINTCUT OF INTERMEDIATE RESULTS FOLLOWS.*) 

GO TO 75C 
22 CONTINUE 
C 

C FIND RELATIVE MAXIMUM ERROR 

C 

CALL SEARCH! J , K , V AL , FD6 S , F U , F L »F , MM A X , NMAX , ST AR TU , S T AR I V , D£ L T AU 
tDELTAV ) 

IFiVAL.NE. 0.0) GO TC 248 
C VAL EQUALS ZERO 

WR ITE (6, ICO ) 

ICC FORMAT (*0 ERROR IN SUBROUTINE SEARCH — VAL=0. *) 

GO TO 75 C 


248 Ul= (J-1 )=>D£LTAU + STARTU 
Vl= (K-1 ) TDELTAV + ST ART V 


IF!ARS!Ul).LF.O.l*DELTAU) U1=0. 

IF! ABS! VI ) .LE.O. l^OELTAV) VI=0, 
IF!LX.EO.O.) GO TC 1000 
IF(U1-Nh.0. .and. ABS!Ul).LE. 0-5/LX) 
ICCC IF(LY.EQ.C-) GO TC ICCl 

IFIVI.NE.O. .AND. ABS(Vl) .LE. 0.5/LY) 


VAL^VAL/2. 

VAL=VAL/2. 
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551 

552 

553 

554 

555 

556 


557 

558 

559 
56C 

561 

562 
56 3 

564 

565 


566 

567 

568 

569 
57C 

571 

572 

573 


5 74 

575 

576 

57 7 

578 

579 

580 

58 I 


582 
58 3 

584 

585 

586 

587 

588 

589 


IFUSY^N-NE.'-t GG TO 1001 g^ANK NOT FILMED 

jYgjujpsC 

UV=ABSt48S(Ul)-A6S(yi)) 

IFlUV.EQ-0.) GG TO 

IF(UV*1*414.LE.LXY) VAL^VAL/2. 

lOOl CONTINUE 

BASIC CQRKECTION — INOEPEMDENT OF ISYMM 
US(IC)=UI 

vsnc )=vi 

CALL*^^'uPCATEnC*US,VS,CORCOFtF,MMAX,NMAX,FNORMt STAR TU, STAR TV 
$,OELTAU,DFLTAV) , . ^ ^ . 

CALL CHECK! IC.VAL.US,VS,CORCOF,OELTAU,DELTAV) 

IF(ISYHN) 26,27t26 
26 CONTINUE 

|F(ISY^^M-2) 261»260,260 

260 CONTINUE 

V-AXfS AND QUADRILATERAL SYMf^ETRY — ISYMM = 2,3,4 

IFIUI.EC.O.) GC TO 261 
IC=IC+1 

usnc)=-ui 

VS( lO^Vl 

CORCOF ( IC ) =VAL ^ r . . t-.i 

CALL UPDATE! I C ,US , V S »CORCOF , F *MM AX , NMAX , FNCRM , ST AR TU , S T AiUV 

$,D6LTAU,CELTAV) 

CALL CHECK! I C , V At , US , VS , CORCOF ,OEL T AU , DELT AV ) 

261 IF!ISYMM-2) 259,27,259 


1!-AXIS AND quadrilateral SYMMETRY -- ISYMM = 1,3,4 

259 IFIVI-EC.O.) GO TO 262 
1C=IC+1 
US! IC )=U1 
VS! IC)--VI 

CALL^UPCATE MC,US, VS, CORCOF, F,MMAX,NMAX, FNCRM, S TARTU, STAR I V 

$,DELTAU,DELTAV) 

CALL CHECK! IC.VAL, US, VS, CORCOF, DELTAU,DELTAV) 

262 IF ! ISYMM.LT- 3) GO TO 27 

CUADRILATFRAL SYMMETRY ONLY — ISYMM - 3,4 

IF!U1-EG.C..CR.V1-EC,0.) GO TO 2745 

1C=IC+1 

US! IC )=-Ul 

VS!1C)=-V1 

CCRCCF I IC I^VAL 

CALL UPDATE! I C , U S , V S ,CGRCOF , F , MM AX , NM AX , FNOHM , ST ARTU,STAKTV 
3,DEL TAU,CELTAV) 

CALL CHECK! IC,VAL,US,VS,CaRCaF.f)£LTAU,DELTAV) 

2745 IFnSYM>.LT.4.rR.ITEMP.EC.l) GO TO 27 

; FOR BIOUACRILATEKAI SYMMETRY ONLY — I SYMM ^ ^ 


59C 


ITEMP^l 
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rF(ui.tg«vn gc to 21 

592 IC=IC+1 

593 UTEMpr^Ul 

59A VTE^SP^Vl 

595 U1=VTEMP 

596 Vl=OTEPP 

597 GO TO ICCl 

59tJ 75C continue 

599 IC=IC“1 

6CC ITER=ITER-1 

601 RETURN 

602 END 


6C3 


SUBROUTINE S E ARCH ( 1 1 , J 1 , VAL , FOES , FU , FL , F , MMAX , NNAX , S T AR Tb 
SSTARTVtDELTAUtnFLTAV) 

60A 


REAL FLl(51t51 )tFL(51t 51) *F( 51,51 ),FOES( 51,51) 

6C5 


VAL=0. 

6C6 


EMAX^G. 

6C7 


12=11 

608 


J2 = J1 

6C9 


CC 10 J=I2,Rf^AX 

610 


U= STAR TUX J-n «OELTAU 

611 


CC 20 K=J2,NMAX 

61 2 


V = STARTV+(K-U«CELTAV 

613 


UVSO=U<^U + V*V 

61 A 


IF(UVS0.GT*1.0) GO TO 20 

615 


FITER=ABS(F(J,K) ) 

616 

r 

IF(FDES( JtK) •EG.99.0) GO TO 20 

617 

Lr 

IF (F ITER.GT.FUI J,K) ) GO TO 2C00 

616 


IF(FL( J,K).EC.99.0) GO TO 20 

619 


lF(fL( J,K).LE.C,00C01 .AND* F I TER . LE . 1 . E-A ) GO TO 20 

620 

r 

IF (FITER.GT.ELU,K) ) GC TO 20 

621 

2CCC 

X=FDESU,K ) 

622 


error = FITER-X 

623 


IF { AES(ERRCR)-ABS(EHAX ) ) 20,20,21 

62A 

21 

emax^errgr 

625 


VAL=SIGN(ERRCR,F( X-FI TER) ) 

626 


I1 = J 

627 


Jl = K 

626 

2C 

CONTINUE 

629 

1C 

CONTINUE 

630 


WRITE(6,10C) Il,Jl,VAL 

63 i 

ICC 

FCRRATI5X, • **SE ARCH4'* * , 18 , 16 , 5X ,f 7.A ) 

63 2 


RETURN 

633 


ENC 


63A SURROUTINE CHECK ( IC , V AL , US , V St CORCOF , D£L TAU » DEL T AV ) 

635 REAL US ( 5CC ) , V S ( 5CO ) * CCPCOF < 500 ) 

636 IF(IC.EQ.l) RETURN 

637 DU=G. 1«CELTAU 

636 CV = C. l^^CELT AV 

639 1C1=IC-1 

6A0 U=US(IC) 

6Al V=VS(IC) 



A-42 


642 


DO 10 J=1,1C1 

643 


IF ( ABS(U-US (J) ) .LE.OU-AND.ABS( V“VS ( J ) ) .LE.OV ) GO TO ?0 

64 4 

1C 

CONTINUE 



RETy_R_N 

^^"4 6 

2C 

CORCOF( J)=CC)RCOF( J)+VAL 

647 


IC= IC-1 

6 4fc 


RETURN 

649 


ENC 


6 5 C sue ROUT INF UPDATE ( I C , US , VS , CORCOE , F » MP AX »NMAX , Fr^URP- , ST AkTU, STARIV* 

$r>EUTAU,DELTAV ) 

651 ClKEfSSICN H ( 5 U 5 U ,US ( 500 ) , VS ( 500 ) , CORCOT-( 500) 

652 COPI^CN /LOG/ ITYPE 

653 C-COKCGF(IC) 

65 ^ DC 10 J= 1 ,MMAX 

655 U-STARTU+ ( J-n#DELTAU 

656 DU=U-US(IC) 

657 CO 10 K= l.Nf^AX 

656 V^ST ARTV+ (K-n *DELT AV 

65 '? OV = V-VSiIC) 

660 1 C FCJ,K)=F{ J,K )+C«PAT(DU»DV, ITYPE) 

66 1 COPCUF( IC) =CCRC 0 F( lO/FNCRM 

662 RETURN 

663 END 


66A 

C 

C 

C 

c 

c 

r 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

5 

666 

667 

c 

. c 


FUNCTION PAT (UtV» ITYPE ) 

THIS SUBPROGRAM GIVES THE BASIC CfJRKFCTIUN PATTERN MU,V). 


ITYPE - 1 
2 

3 

4 

5 

6 
7 


UNIFORM LINE SOURCE LOCATED AT S=0, 
UNIFORM LINEAR ARRAY LOCATED AT S=0. 
TRIANGULAR LINE SOURCE LCCATEO AT S=0. 
UNIFORM rectangular APERTURE- 
UNIFORM rectangular array. 

UNIFORM circular APERTURE. 

GENERAL ARRAY. 


ITYPF > 7 


SPECIAL SOURCE (FUNCTION SPEC F T I U , V , IT YPE ) WILL 
BE CALLED. 


VERSICN 1 LEVEL I 

DATE OF LAST REVISION: 73/193 JULY 12,1973 


This WORK SUPPORTED BY NASA GRANT NGR 4/-00A-103 

rCR FURTHER INFORMATION CONTACT: 

W-L. STUT7MAN DEPT. OF FLEC. ENGR. 951-6624. 

E.L. CCFFEY DEPT. OF ELEC. ENGR. 951-549^+ 


CCMPLEX TEMPtCEXP, IMAG 

COMMON /PAT! / P 1 , P2 , P3 , P4 , P5 , P6 , P I , S S ( 400 ) , TT ( 400 ) , HR ( 400) 
COMMON /PAT2/ 11,12,13,14,15 
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668 !F( ITYPf-,GT.7) GO TO 990 

669 GO TO { iCOf 20Qt300t400, 500t600t 700 ) tlTY PE 

C ITYPF .LT, 1 

C 

670 WRITE(6,10) ITYPE 

671 10 FCPPAT ( lHC*5Xf •♦♦♦ERROR*** ITYPE HAS THE VALUE * t I 1 1 , • : • , 2X , 

$»EXECUTICN TERMINATED*) 

672 STOP 
C 

c 

C ITYPE =1 — UNIFORM LINE SOURCE. 

C 

C FLEN=P1 

673 ICC CONTINUE 

67A PAT=1.0 

67^ IFIV.NE.O.) PAT = S INI PI*P1*V )/ ( P 1*P1*V ) 

676 GO TO 999 
C 

C 

C ITYPE =2 — UNIFORM LINEAR ARRAY 

C 

677 2CC CONTINUE 

C FLEN=P1 

C NELMT=Il 

678 PAT=loO 

679 IFIV.NE.O.) PAT = SIN I PI *P l*V ) / I I l*S INI PI ♦P1*V/ 1 1 ) ) 

68C GC TO 999 

C 

c 

C ITYPE =3 — TRIANGULAR LINE SOURCE. 

C 

681 3CC FLEN=Pl/2. 

682 PAT-1.0 

683 IFIV.NE.O.) PAT ^ I S I N I FL EN*P I *V ) / ( FLEN*P I *V ) ) **2 

684 GO TO 999 

C 

C 

C ITYPE 4 — UNIFORM RECTANGULAR APERTURE 

C 

685 ACC CONTINUE 

C FL5-P1 

C FLT=P2 

686 ARG1=PI*PI*U 

687 ARG2=PI*P2*V 

688 IFI/iRGl) 401,402,401 

689 4C1 IFIARG2) 403,404,403 

69C 4C3 PAT=SlNt ARG1)/ARG1*SINIARG2) /ARG2 

691 GC TO 999 

692 4C4 PAT=SINI ARGl )/ARGl 

693 GO TO 999 

694 40? IFIARG2) 4C5,4C6,405 

695 405 PAT=SIN( ARG2)/ARG2 

696 GC TO 999 

697 406 PAT=1.C 

>696 GC rO 999 

C 

C 

C ITYPE ^5 — UMFflRM RECTANGULAR ARRAY 
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6<59 


7CC 

7Cl 

7C2 

7C3 

70A 

7C5 

706 

7C7 

7G8 

709 

710 
71 L 
712 


713 

714 
n5 

16 

717 

7l« 

719 

72C 


7 2 1 

722 

723 

724 

725 

726 

727 

728 

729 
73C 
731 


C 

5CC CONTINUe 
C FtS=Pl 

C FLT=P2 

C NELS=I1 

C NELT=I2 

ARG1=PI*P1*U 
ARG2=PI*P2*V 
IF(ARGl) 501,502,501 

501 IF(ARG2) 503,504,503 

50 3 PAT = SIN(ARG1 >/< 1 1»S IN( ARGl/ 1 1 ) ) * S 1 N { ARG2 ) / < I 2*SIN( ARG2/1 2 ) 
$) 

GO TO 999 

504 PAT = SIN( ARGI )/( 1 1*5 I N ( ARG I / 1 1 ) ) 

GO TC 999 

502 IF(ARG2) 505,506,505 

505 PAT=SIN( ARG2 )/( I2*SIN( ARG2/I2) ) 

GC TC 999 

506 PAT=1-C 
GO TO 999 

C 

C , 

C ITYPF =6 — UNIFORM CIRCULAR APERTURE. 

C 

600 C=SCRT(U*U+V*V ) 

C A = Pi 

IF(C.EQ.C. ) GO TO 601 
X = 2 .♦Pl’i'Pl^i'C 

CALL PES J ( X, 1 ,«J,0.000l , lER ) 

PAT = 2.*Bvl/X 
GC TO 999 

601 PAT^UO 
GO TO 999 

C 

C 

C ITYPfc =7 — GGNG-RAL array 

C 

7CC lMAG-( C.C, l.C) 

NELMT=Il*I2 
TE^'P^ (0.0,0. 0) 

CO 701 J=1,NELMT 

TEMP=TEMP+1.0«CEXP( IMAG«2.^PI*(U*SS( J)+V«TT( J) ) ) 

7Cl CONTINUE 

PAT -REAL (TEr^P)/NELMT 
GO TO 999 

990 PAT = SPECPT (U,V, ITYPE ) 

999 RETURN 
FND 


732 

C 

c 

c 

c 

c 

c 


COMPLEX FUNCTION SOURCE I M,N,U,V, I TYPE ) 

THIS SUPPRCGRAM CALCULATES THE CURRENT AT POINT (M,N) DUE TO 
THE PATTERN AT POINT (U,V). 

ITYPE = 1 -- UNIFORM LINE SOURCE LOCATED AT S=0. 

2 UNIFORM LINEAR ARRAY LOCATED AT S=0. 
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733 

734 

735 

736 

737 

738 

739 


740 
74 1 

742 


743 

744 

745 


74 6 

747 

748 


749 

75C 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 


c 

c 

c 

c 

c 


3 — TRIANGULAR LINE SOURCE LOCATED AT S=0. 

4 — UNIFORM rectangular APFRTUR. 

5 — UNIFORM rectangular ARRAY. 

6 — UNIFORM CIRCULAR APERTURE. 

7 — GENERAL ARRAY. 


ITYPE > 7 


SPECIAL SOURCE (FUNCTION SPSOft ( M, Nf Ut V» I TYPE ) 
WILL 8E CALLED.) 


VERSION 1 LEVEL I 


DATE OF LAST REVISION: 73/166 JULY 12,1973 

THIS WORK SUPPORTED BY NASA GRANT NCR 47^004-103. 


FOR FURTHER INFORMATION CONTACT: 

W. L. STUTZMAN dept, of ELEC. ENGR. 
E. L. COFFEY DEPT. OF ELEC. ENGR. 


951-6624. 

951-5494. 


COMPLEX TEMPtCEXP , IMAG, SPSOR 

COMMON /PATl/ Pl,P2,P3fPA,P5,P6,PI,SS(400) 
COMMON /PAT2/ 11,12,13,14,15 


TT(400),RR(400) 


IMAG=(0. 0,1.0) 

CALL LOCSOR(M,N,S,T) 

IFUTYPE.GT.?) go TO 990 

GC TO { lOOf 200, 300, 400, 5C0, 6C0,700 ) , I T YPE 


I TYPE .LT. 1 

WRITE(6,10) ITYPE 
1C F0RMAT(lHC,5X,»***tRR0R**=M 
$*EXECUTIGN terminated*) 
STEP 


ITYPE HAS THE VALUE * , I 1 1 1 ’ ^ , 2X, 


ITYPE =1 — UNIFORM LINE SOURCE 

ICG CONTINUE 
FLFN=Pl 

SCLRCE=CEXP(-1MAG*PI<^2.*T*V)/PI 

GC TO 999 


C 

C 

C ITYPF = 2 — UNIFORM LINEAR ARRAY 

C 

2CC CONTINUE 
C FLEN-Pl 

S0URCfi = CEXP(-IHAG^2.«PI«V«T ) /PI 

GC TO 999 


C 

c ITYPE= 3 — triangular LINE SOURCE 

C 

3CC CONTINUE 
C FLEN^Pl 

CnN = ABS( 2.=^T /PI ) 



751 
75 2 
753 


75A 


755 

756 


75 7 


758 

759 


760 

761 

762 
■63 


76 ^ 

765 

766 

767 
76 H 
769 


7 70 
771 
112 
773 
77A 
7 75 


776 

777 

778 

7 79 
80 


S0URC6=2./Pl*CEXP(-IWAG*2,*PI«T*V)«a.-CCN) 

[F(CCN.GT.l ) 50URCE=(0.0,0.0) 

GC TO 999 
C 
C 

C ITYPt - A — UNIFORM RECTANGULAR APERTURE 

C 

ACC CONTINUE 
C FLS=P1 

C FLT=P2 

S0URCE=CEXP(-IMAG*2.*Pl*(S^U>V*T) ) /tPl«P2) 

GC TO 999 
C 

c 

C ITYPE = 5 — UNIFORM RECTANGULAR ARRAY 

C 

5C0 CONTINUE 
C FLS=P1 

C FLT=P2 

SOURCE=CEXP (-IMAG*2.«PI*( S*U+V*T) ) /(Pl«P2 ) 

GC TC 999 
C 
C 

C ITYPE = 6 — UNIFORM CIRCULAR APERTURE 

C 

60C RHC-SCRT (S^^'S + T^T > 

C A = P1 

SCURC£=( G,C*C.C ) 

IFIRHC.LE.Pl) S0URCe=CEXPI“IMAG«2.^PI^(S*U + T*V) )/(2.«PI*Pl«4'2) 
GO TO 999 
C 
C 

C ITYPE =7 — GENERAL ARRAY, 

C 

7CC CONTINUE 

SCLRCE = CEXP(-I MAG*2 .=«=PI*(U + S+V*r ) ) / ( 1 1#I 2 ) 

GC TO 999 

99C SnLRCE = SPSOR(MtN, U,V, ITYPE ) 

999 RETURN 
ENC 


SUBROUTINE L GC SCR ( M ,N * S * T ) 

INTEGER PX,PY 
REAL INITLS, IMTLT 

COMMON /PATl/ PI,P2,P3 ,PAtP 5,P6^PI,SS(AOO),TT(AOO),RR{^00) 
COMMON /PAT?/ II, 12, 13, lA, 15 
CCMMCN /LCC/ ITYPE 
C 

c 

IF ( 1 TYPE .GF, 7) GO TO 990 

GC TO 1100,200,300, AGO, 500,600,700) , ITYPE 
WRITE (6, 1,0 ITYP<^ 

1C FORMAT! IHC,5X, »>{«+«EKRnR«*« ITYPE HAS THE YALUt *,Ul,*:*,2X 
i'EXECUTIEN terminated*) 

STEP 
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lei 


782 

783 
7 84 


785 


786 

787 

768 

769 


79C 


791 


792 

793 

794 


795 


796 

797 

798 

799 
tiCC 


8Cl 


ec2 

8C3 

804 

8C5 

B06 


C 

C 

C 


ICO 


c 

c 

2C0 

C 

c 




c 

c 

6CG 


7CC 


CONTINUE 
INITLT=P2 
DELTAT=83 
S = C. 

T-P2+(N-1)4‘P3 
GO TO 999 


CONTINUE 
PY= 1 1 
CISY=P2 

s=c. 

T=<N-I l/2-i)«P2 
IF(I1/2*2,E€)-I1) T=T40.5*P2 
GO TO 999 


GO TO 100 


continue 

INITLS=P3 

INITLT=P4 

DELTAS=P5 

DELTAT=P6 

S = P3+(f^-l)*P5 

T = P4+ (N-1 ) <'P6 

GO TO 999 


CONTINUE 
PX=I1 
PY= 12 
0ISX=P3 
DI SY=P4 

S^(M-Il/2-l)«P3 
T-:(N’-I2/2-n*P4 
IF( I1/2^2.EQ.I1) S=S+0,5*P3 
IF( I2/2«2,EO.I2) T=T+0.5*P4 
GC TO 999 


GO TO 4C0 


CONTINUE 

NELMT=( «-l ) «I 2+N 
S = SS (NELM ) 
T-TT(NtLPT) 

GO TO 999 










807 

8C6 

809 


C 

c 


99C CALL SPLOC ( ?^,N,S,T) 
999 RETURN 
ENC 
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SUBROUT CURRcN(CUKK,CURl*MCUK,NtUR.USt VStCORCUFf 


IC) 


Thi^ SUBROUTINE CALCULATFS THE FINAL CURRENT DISTRIBUTION 
NLcLsARY to produce the final pattern F(U,V). 

IjATE : 73/166 JUNE 16»1^73* 

REAL*"cURMSullI»CURl(Sl,i>l)»US(SGO>,VS( 5 O 0 ),CaRCUF 15 Ou) 

REAL UUHjUOO) fVaRG(100),t0KG( 100) 

CUNMDN /STaRT/ NORG t U0RG»V0R0 * COKG 
COMMON /LUC/ I TYPE 
uo lOO H=^1,MCUR 
uO iOU N=i*NCUR 


I TYPE 
.UR 

uU iUU r^^ifNCUR 
CURR(MtN)=0. 

TOO CUR1(M»N>=C. 

00 EGO It HOUR 
1)0 200 N=1 tNCUR 
00 200 l=ltNUKG 

f hP=SUL!kfE ( M tN f UORG ( I ) t VORG ( I ) tITYPE) 

CURR(M,N)=CURR(M,N)+CURGin ♦real (TEMP) 

CURi(M,N)^CURi(MtN)+CURG( I ) *A IMAG t T EMP ) 
200 CONTINUE 

iFUC.Lt.D RETURN 


bill 

00 1C N=l»1MOUK 
UQ iO 1^1 tic 

URCE (MtNtUSU ) *VS(1 ) f ITYPE ) 

CURR ( rt , -CUKR ( ,N )+(.l)RCOF ( 1 ) ^F.L AL ( T EMP ) 
CURl (M, N) ^CURI ( M tN ) +CLRCDF ( 1 ) ♦A1MAG< T IMP ) 
CONTINUi 


10 

u. 

iO 


H-i tMCUR 
N=1 tNCUK 
I-ltlC 


10 








0 1 1 ukn 


82 A 


E25 
826 
82 7 
828 
829 
83C 
t31 
832 


SU8.RUUTING PR 1 NT ( A , M , N t S TARTU t ST ARTV t DU t CV ) 

C 

C SUBROUTINE PRINT IS THE GENERAL OUTPUT SUBROUTINE — 

C IT WILL PRINT CUT CO-ORDINATES (U,V) AND VALUES A(I,J) 

C 10 ROWS AND IC COLUMNS TO A PAGE. 72/266 VERSION 3 

C 

CIPENSICN AC51*‘>l)tU(51 ),V( 51 ) 

WRITE ( 6,6969) 

6969 FORMAT ( IH I ) 

DC 10 J= It 51 
L( J) = STARTU+ ( J-1 )+L)U 
IC V( J )=STARTV+ (J- 1 )*nv 
N 2 = N / 1 0 . + C . 9 9 
M2=M/lC.+0.99 
C 
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833 

DC TOO Jl=l,M2 


OC 2CC K=1,N2 

8^3 5 

M3=13^( J1“1)*1G 

836 

PA=M3+9 


IF(MA.GT.R) MA=M 

838 

N3=1+(K-1 )*lC 

839 

K^» = M349 

84C 

IF ( N4.GT.N) N4=N 


841 

842 
t4 3 


C 

C 

C 


PRINT GUT a heading 

ViRIT6(6,20) ( V( I ) tl=N3,NA) 

2C FORMAT! lHl*16X*F6-3t’5(4X,F6.3)l 
WRITE (6,30 ) 


fc 44 
8 4 5 
846 
84 7 
84 8 

849 

850 

851 
52 

^53 
8 54 

855 

856 

857 

858 

859 

860 


C 

C 

c 


26 

27 

4CCC 


2CC 

ICC 

3CC 

29 

3C 

31 


PRINT A PAGE 


K2= ( M4-M3+ 1 ) *6 
CD 40CC J=1,K2 


J2 = J/6 

IF(J2«6-JI 27,28,27 


J3= J2+M3-1 
WR ITE (6,29 ) 
GC TO AOCO 
WRI TE (6,31) 
CONTINUE 
IF ( N4 .EC-N 
CONTINUE 


U(J3) ,{A(J3#I ) ,I=N3,NA) 


.AND. M4.EC.M) GO TO 300 


CONT INUE 


FCRMAT(3X, F6.3, * + ' , 5X , 10 ( F9 , A , I X )) 

F0R^*AT( ICX , lH+,10 UOH i 

FORMAT! ICX.« 1 • ) 

ENC 


661 
862 
86 3 
86A 

865 

866 

867 

868 

869 

870 

871 


B72 
.B 7 3 

874 

875 


C 

C 

C 


SUBROUTINE PRGFIL(OATAl,NPT, NUMP AT ) 

INTEGER 5F 

integer CUTPUT(lOl) 

INTEGER BLANK , PLUS, SLASH, STAR 
REAL CATA( 4 01,2) , BO UNO ( 1 Cl ) 
real CATAl (401,2) , 

DATA BLANK , PLUS ♦ SLASH, ST AR / ♦ 

CO 47 J-lf40l 

CAT A( J, I I^CATAU J,l ) 

CAIA(J,2)=CATA1(J,2) 

47 CCNTINUE 


/ 


FIND THE RANGE OF 


DEPENDENT DATA AND SCALE IF NECESSARY 


IF ( NPT.GT.60C) GG TO 999 
8 I G=^ 1.5 1C 
5^<ALL = 1•£1C 

DC ..l..J.= i 
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876 

877 

878 
87 <^ 
680 
881 
882 
863 
8PA 

885 

886 

88 7 
886 
889 

89 C 
691 
892 
89 3 

894 

895 

896 
697 

898 

899 
9C0 


9C1 

9C2 

9C3 

9C4 


9C5 

9C6 

9C7 

9C8 

9C9 

91C 

911 

912 

913 

914 

915 

916 

917 

918 
9 19 
92 0 


lF(0ATAU,2KLT.-60,0) D AT A U , 2 ) =-60, 0 
rF(DATAU,2)*LT.SMALL) SMALL = 0A TA ( J , 2 ) 
IF(DATAU,2).GT.BIG) b IG=DAT A ( J* 2 ) 

1 CONTINUE 
DIFF=ABS( BIG-SMALU 
SF = C 

IF(DIFF*LT.1.) GO TO 10 
IFIDIFF.LT.IOO. )G0 TO 21 
DO 2 J=ltlC 

IF (0IFF*1G.<'=»(“J l.GT. ICO. ) GO TO 2 
SF = J 

GG TO 2C 

2 CONTINUE 
4CC NRITEi6,lCC) 

100 FCR^!AT<'0 YDUR DATA IS TOO LARGE FOR THIS PROGRAM.*) 
RETURN 

1C DO 3_ J=1»IC 

K=ll-J 

1F(OIFF4=1C#«K.GT.100. ) GO TO 3 

SF^-K 

GO TO 20 

3 CONTINUE 
GG TO 400 

2C CO 4 J=l,NPT 

4 CATA(J,2) = DATA( J,2)*10.#*(-SF) 

C 

C CALCULATE 8CUN0S 

C 

21 SCALE=DIFF/100. 

CO 5 J=1*1C1 
K = J-1 

5 GCUNDl J) = l BIG-K«SCALE )<'10.<=*(-SF ) 

C 

C PRINT TITLE 

C 

KRITE(6,64C) NUMPAT 

64C FORMAT! 26X, ‘PATTERN NUMBER *,I5//) 

IF (SF.EC.C) GO TC 200 
kvRlTE (6,4004) SF 

4CC4 F0RMAT(53X., 'SCALE FACTOR IS 10^^^*, 12/) 

200 WRITE(6,65C) ! BOUND ( J ) , J = 1 , 1 Ol , 2 0 ) 

65C FCRMAT(/X,5(F7.3fl3X),F7.3,2X,*REAL*,5X, *C3.* ) 

CO 6 Ji=l,NPT 
J=NPT+1-Jl 
CC 50 K = 1 , ICl 
5C CUTPUT(K)=8LANK 

IF ( { J-1 ) / 1C«10- ( J-1 ) ) 62t61,62 

61 CC 40 K= I , 1 01 , I 0 
40 CUTPUTIK )=PLUS 

GO TO 87 

62 CUTPUn I ) = SL ASH 
CUTPUTUCl) = SLASH 
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922 
g_p 3 

9’2 5 

926 

927 
92K 

929 

930 

931 

932 

933 
93A 
935 
93fc 
93 7 

938 

939 
9AC 


9^ I 


9^2 
9A 3 

9AA 

9A5 

9A6 

9A 7 
9A8 
9A9 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 



'' ?MDATMj12?.GT,B0UN0(K)J GO TO 7 

IF(CATA( J,2).LE.BOUND(K+D) GO fO 7 
CUTPliTiK )=STAR 
GO TO 69 
7 CONTINUE 

OUTPUT(lOl) = STAR ni=-A 

CA{AOri'’2oUALOGio(ABS(DATMJ^ 

4CCC FORMAT! IX. FR.3flX*l0lAl,2X,Fb.3*2X, - 

lAC Sri'tE(6.ACCI. , output, K..K=1.101..0ATA(J, 2), 0ATAD6 

ACCl FORMAT! l0X,l0lAlf2X.F8.3.2X,F6.2l 
6 CONTINUE , 

V«R I TE I6.65C ) ( BOUND ( J ). J-l » TOT ♦ 20 > 

999 RETURN 
FNC 


DATAOB 


SUBROUTINE CCNTUR ( K, L, OC^. CLOW. CM AX .C INT . A . NUHPAT ) 

C,***,#**#»****tt»*******PRINT2**»****»*»************************'‘*****'‘ 

c THIS SUBPRCGRAM GIVES A CONTOUR MAP OF THE MATRIX A 

C K AND L ARE THE MAXIMUM VALUES OF I AND J oi nr 

r IF K-L=51 OR ICI AXES HILL BE SET UP AS FOR A PATTERA PLOT 

c okcON=OELTA( INCREMENT, BETWEEN CONTOURS FOR CONTUR SUBROUTINE 

c CONLOW=LCWEST CONTOUR LEVEL 

C CONMAX=HIGHEST CONTOUR LEVEL 

C CON INT=CONTnUR INTERVAL 

c numpat=patt£rn number 


DIMENSION A!5lt51) 
dimension ALPHA(lO) 


DIMEKSICN CGL AT LEAST L 
DIMENSION COLdOl) 

DATA ALPFiA/lHC.THl, 1H2.1H3. IHA.IH5.IH6. IH7, 1H«, LH9/ 
DATA CLANK, DCT/IH .IH./ 


C 

iFtK.LE* l.CH.L*LE.l) RETURN 

COMNT^C INT 

CCNMAX^CMAX 

CONLOH=CLOW 

CELCON^DCCN 

HRITE!6.87) NUMPAT . 

D7 FCRMATUHC.’FCR THE PATTERN NUMBERcO • . 1 5 ) 
IFICONINT) 99,99, IOC 
99 ClG=-l.E27 
SMALL = I -E27 


00 98 l=l,K 
CO 98 J^l.L 

IF!A(I.J) -GT. BIG) BIG=A(I,J) 
IF!A!ItJ) .LT. SMALL) SMALL = AII.J) 

98 CONTlNUr 
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962 

U 

6 5 
9 6 6 
967 


966 

969 

97C 

971 

972 

973 
979 
975 


976 
97 7 

978 

979 
96 C 
96 1 
982 


71 


CCMNT=^ (BIG-SMALL)/ 10. 

06LCON=C.5^CCNINT 

CC^LOW=S^ALL+DELCON 

CQNMAX=BlG-nELCON 

100 W«lTE(6.?n DELC 0 N,C 0 NL 0 W,C 0 NMAX,C 0 NINT ^ 
FCRN'ATllHOt ♦ OELCGN= ’ t FlO .5f 3X» CONLOW- 

1 F10.5,3X»*C0NINT=* »F10.5) 

print level designations 

I^CHA« = ABS( (CCNyAX-CCNLOW)/CONlNT + l .1 ) 
C0N-C0N^^AX4C0NINT 

no 90 


ICCN=f^-l 
CON=CON-CONINT 
WRITE(6,72) ICON, CON 

72 format (INC, ’CONTOUR LEVEL ,F10.5) 

90 CONTINUE 


C 

C WRITE HEADING 

CC 32 J=l*lOl 
CGL ( J )=DLANK 
32 CONTINUE 

IF(L.GT.51> GO TO 33 
CC 30 J- 1 1 lOT t2 
COL< J )=DOT 
30 CONTINUE 


,FlO-5f 3X, ’CONMAX^’ , 


983 


966 
987 
98 8 
989 
99C 

991 

992 

993 
999 

995 

996 

997 

998 

999 
ICCC 
IGGI 
1CC2 
1CC3 
ICCA 
10C5 
1CC6 
ICC? 
100 8 

CC9 

ICIO 
ICI 1 


33 

35 

39 

2CC 


ICI 


31 


C 


GO TO 39 
CONTINUE 
CG 35 J-lflOl 
COL ( J ) ^DCT 
CONTINUE 
CONT INUE 
WR ITE (6.20C ) 
format ( IH l ) 




1=:L^2 

F(Nl.GT.lOl) N1=101 
RITE(6tlOl) (COL ( J1 ) » ^ 

ORMAT { /1HC» 14X , 101 Al) 

0 I I=lf M 
C 31 J=I»10X 
,GL ( J )=RLANK 
,0M INUE 
I2 = ”l 

;n 2 J^i* L 
l2 = J2 + 2 

:ccN=-i 

;ON=CGNMAX+CCNINT 
:0 50 M= I ,MCHAK 
[CCN^ICON+l 
:ON = CON-CaNl,NT 

IF(A( l,J).GT.(CONtOELCCN)) GO TO bO 

|F(S(l.J).LT.(CnN-DELCONn GO JO 50 

A(liJ) IS LT CON+OELCCN ANO GT CON-OELCON 
IF(L.LE.51) CCL( J2 )= alpha ( ICON+ l) 

IF (L.GT.51 ) CGL (J>= ALPHA! ICON+l I 

30 TO 2 
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ICl12 
li p 
1CT4 

1015 

1016 

1C17 

1018 


1019 


1020 
102 1 

IC22 

102 3 

1C2A 
1 025 
1G26 

1027 

1028 
1029 
I' 

llTTl 

1032 

103 3 
103^ 

1035 

1036 
1C37 
1 03b 
1039 
1 CAC 

ICAI 
1CA2 
1 0^ 3 
1CA4 
10^3 
1CA6 

10^7 
1 CAP 
10A9 
1 050 

iCSi^ 


5C CONTINOe 
? CONTINUE 

KRITE(6*IA0) (COL ( J1 ), Jl=l, 101) 
lAC FGRMATdH . 1 3 X , • • • , 1 C 1 A 1 ) 

1 CONTINUE 

C 

RETURN 

ENC 


SUb ROUTINE PATCON(RDATA,MMAXfNMAX* ICODE ,CONLOW tCONWAX, CON I NT , 
$STAftTU.STARTV,r:ELTAU»OELTAV,NUMPAT, IS VMM ) 

C 

REAL ROATAI 51*51 ) tUAXl S( 11) ,LOW( 12) *HIGH( 12) 

INTEGER OUTPUT ( 101 ) *LEVEL( 12 )*BLANK 
C 

DATA BLANK/* * / 

CAT A LEVEL/ *C** * IS *2*, •B'.'AS'S*, * 6 *, 'T*, *8*, *9», *-*,*+*/ 

C 

CALL OATE( I * J*K) 

WRITE (6* 10) I , J*K,NUNPAT 

10 FCRRATdHl,* PATTERN CONTOUR SUBPROGRAM *, 3AX ** DA TE = **A2f*-**A2 
$*•-* ,A2, 30 X, • pattern NUMBER* ,15//////) 

IF( ICCCE.EO.C) WRITE(6,ll) 

IFdCCDE.EC.l) WRITE(6,12) 

IF( IC0DE.F0.2) WRITE(6,13) 

11 FCRMAT(A2X, *C0NJ0U^ PLOT OF THE DESIRED PATTERN •////) 

12 FORMAT(A6X*»CONTOUR PLOT OF THE INITIAL PATTERN*////) 

13 FORMAT! A5X* *CONTOUR PLOT OF THE FINAL PATTERN IN DB. •////) 

r I N ALU=STARTU+ (MMAX-1 )«OELTAU 

FINAL V= START V4( NM AX-1 ) ^DEL T A V 

UdSTARTU 

U2-FINALU 

Vl^ STAR TV 

V2 = F INAL V 

mccunt^mmax 

NCOUNT=NMAX 

C 

IF(ISYMM-l) 70,30,20 
20 UBIG=AMAX1(AHS(STARTU),ABS(FINALU)) 

U1=-UBIG 

U2=UBIG 

MCCUNT=2#VCnuNT-l 

IF ( I SYMM^EG. 2) GO TO 70 

C 

30 VBIG^AMAXl (ABS( ST ARTV),ABS( FINAL V) ) 

V1=-VPIG 

V2=VBIG 

NCCUNT=2=>NC0UNT-l 

C 

7G CONTINUF 
C 

C establish LOWER AN[) UPPER LIMITS 
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1052 

1053 

1054 

1055 

1056 
1G57 

1058 

1059 
1C6C 
106 I 
1062 
IC63 

1064 

1065 

1066 
1067 
106 8 

1069 
IC7C 
1C71 
1072 
IC73 
1C 74 

1075 

1076 
IC77 
1078 


1079 
I c e vO 
1081 
1 (J 8 ? 
108 3 
IC84 

1085 

1086 

1087 

1088 
108 9 
1C9G 

1091 

1092 
1C9 3 
1 094 

1095 

1096 
I C9 7 
1098 


NUf^COfM=(CONHAX-CONLOV < ) /CONlNT+l. 5 
CGLC0N=C0NINT/2. 

DO 71 J±l,NUr^CCN 

LOWU )=CGNLOVi+( J-n^CONINT-OELCON 
HIGH( J)=LOW( J)+CONINT+O.CC001 
71 CONTINUE 

LOW( 11 )=-l.E3C 
H!GH( 12)=1.E30 
HIGH! ll)=LOVi( I ) 

LOU( 12)=HIGH(NUMC0N) 
f^SKIP=lOO/(MCCUNT-l 1 
NSK IP=lOO/( NCOUNT-1 ) 

C 

CU= (U2-UI )/lO. 

DO 40 1=1,11 
40 UAX IS( I ) = Ul+n~l )*DU 

WRITE(6,42) (UAX ISC I )• I-lf 11 ) 

42 FCKPAT(13X,11CF7*4,3X)/16X,11C •-*,9X) ) 

C 

DU=(U2-U1 )/lCO. 

DV= ( V2-V1 )/lOO, 

Nl^NSKIP- 1 
CO 50 N=lf lOUNSKIP 
V=V2-(N-n*CV 
00 51 K= 1,101 
51 OUTPUTCK)=BLANK 

CO 60 M^1,101,HSKIP 
lj=Ul+ ( P-1 ) ♦OU 

IF C U=«‘L + VX‘V.GT. 1- G) GO TO 60 

C 

c FIND F(U,V) 

C 

IJ=1 

IK=1 

J=CU-STARTU)/DtLTAU+l .5 
( V-STfiuTV) /DELTAV+I.5 
IFCJ-GF.l .ANC. J*LE.MMAX) IJ=0 
ifck^ge-i .and. K.LE.NMAX) IK=0 
C 

101 IFCIJ) 2CC,1C2,2CC 

102 IF(IK) 300,1000,300 

c 

2CC IF(ISYPP-I) 6C,6C,2C1 

201 J=1 *5-(U+STAKTU) /OELTAU 
IF(J.GE,1 -AND. J.LE.yPAX) U=0 
IFCIJ) 60,202,60 

202 IFCIK) TCC,1CCG,3C0 

3CG IFCISVyy.EC.O .OR. I SY MM. EG. 2) GO TO 60 
K=l.5-C V+STARTV) /OELTAV 
IFCK.GE.l .AND. K.LE.NMAX) IK=0 
IFCIK) 60,1000,60 
C 

ICGC F=RCATACJ,K) 

IF CF.LE.LOVvC I ) ) GO TO ICOl 
IF (F.GT.HIGHCNUMCCN ) ) GO TO 1002 
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iT^9 
I ICC 
llCl 
1 1C2 
11C3 
IIC^ 
1 1C9 
1 IC6 


UC8 

1109 

UlC 

I 111 
1112 
1113 

I I 1^ 

1115 

1116 
1117 


Ills 

1119 

20 

..n 


1122 


1123 


112^ 


CG 61 K=1,NUMC0N 

I F ( F . GT- LOW ( K ) •AND, F . LE . HI GH ( K ) ) GO TD 62 

61 CONTINUr 

1C02 OUTPUT ( K )=LGVEL ( 12) 

GG TO 60 

1001 CUTPUT(V)=LEVELni) 

GG TO 6C 

62 CUTPUTIH ) = LEVEL (K ) 

C 

6C CONTINUE 

WRITE(6,6A) Vt ( OUTPUT (K),K= 1,101) , V 
6A FCPNiAT L7X,F7.A, lX,*,*,101Al,*.*flX,F7.A) 
IF(Nl.Eg-C) GO TC 50 
CO 55 K=l,Nl 
WR ITE (6,56 ) 

56 FCRKATI* •) 

55 CONTINUF 
C 

5C CCNTINUE 

wmTE(6,A31 (UAXISI I ) , 1 = 1 , 11 ) 

A. 3 FnRMAT(16X,ll(*.S9X)/13X,lUF7.A,3X)) 

C 

WRITE(6,AA) 

AA FORMAT! ///56X, ’CONTCjUR LEVEL KEY*//) 

CO A5 I=l,A 

A5 WRITE(6,A6) ( L EVEL ( J ) , LOW ( J ) , H IGH ( J ) , J- I , 1 2 , A ) 
A6 FGRMAT(5X,3( A1 , * : •,riA*7,» TO *,FlA.f,AX)) 

RETURN 
ENC 


1125 


1126 

1127 

1128 
1129 
113C 
1131 
1 132 
U33 
113A 
1135 


SUBROUTINE L I ST ( CURR ,CUR I ,MCUR,NCUR) 

THIS SUdP(;UTTNE LISTS ARRAY ELEMENT CCOKDINATtiS AND CURRENT o 
DATA written: 73-192 — JULY 11,1973* 


DIMENSION CURR (51 ,51 ) , CUH I ( 5 1 , 5 1 ) 

DO IC M=I,MCUR 
CO 10 N=l,NCUR 
J= { M-1 ) 4=NCUR + N 
CALL LCCSCR( M ,N,S,T ) 

WRITE (6, ICC) J,S,T,CURR(M,N) ,CURI (M,N) 
10 CONTINUE 

ICO ECRMAT(3X,IA,5X,A(E1A.7,2X)) 

return 

ENC 
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7. Appendix: The ANTDATA Computer Program 

7*1 Introduction 

When dealing with two-dimensional antenna patterns data display becomes 
a very important phase of an antenna study. The ANTDATA computer program was 
written to accomplish this purpose. It is used for publication quality graph- 
ical display of patterns and source distributions. These plots are in one 
(profile), two (contour) and three dimensional forms. The program is written 
in FORTRAN IV and has been used on an IBM 370/155 with an on-line CALCOMP 
drum plotter. 

This program is for support of the ANTSYN program. There are several 
subroutines of ANTSYN which provide data output, e.g. PRINT, PROFIL, CONTUR, 
PATCON and LIST. These may be sufficient for many needs and they do supply 
quantitative Information. However, after synthesizing patterns using ANTSYN 
if further data display is desired ANTDATA can be used. In this way only those 
plots which are of interest to the designer are plotted. ANTSYN provides a pre- 
view capability for ANTDATA. Both programs could be combined. But when they 
are separate the program sizes are about 220 K for ANTSYN and 220 K for ANTDATA 
instead of one 440 K program. Also after previewing the results of ANTSYN, the 
user can easily select which (if any) of the plot options in ANTDATA he wishes 
to exercise. 

ANTDATA is currently set up to use the correction positions and coefficients 
from ANTSYN to reconstruct the pattern and source distribution using some of the 
ANTSYN subroutines. This is done to minimize storage space. If storage is no 
problem the program could be altered to work directly from pattern and current 
arrays. Although, one must then use the resolution (array dimensions) used in 
ANTSYN, which may not be sufficient to see all of the detailed structure in the 


plots. 
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The original pattern is based on a Woodward-Lawson pattern. If the user 
wishes to use a different original pattern, he could write a subroutine, ORGPAT, 
and use it to initialize the pattern magnitude array A, The corrections found 
in ANTSYN and passed to ANTDATA would then be used to form the final pattern A 
as programmed here. 

7.2 Program Organization 

Again a modular structure using several subroutines has been used to 
allow for modifications. The main program generates the pattern and current 
arrays and controls which plots are made. Fig. 7.1 shows a block diagram of 
the program organization. Subroutines PAT, SPECPT, SOURCE, SPSOR, LOCSOR, and 
SPLOC are used in generating the pattern and source arrays and are also used 
in ANTSYN. PLOTl, PLOTIC and PLOTIP are used to plot profiles (cuts through 
one plane) of the pattern magnitude in dB, the source magnitude, and the source- 

phase. PL0T2 and its subroutines (CNLAL and PLOTL) are used to draw accurate 

> 

contour maps of the pattern magnitude in dB, the source magnitude, and/or the 
source phase. PLOTS and its subroutines (THREE2, THREE3, THREE4, and THREE5) 
are used to plot the pattern magnitude in dB, the current magnitude, and/or 
the current phase with a three dimensional effect. 

In the next section a description of how the user controls which plots 
are obtained is discussed. In Section 7.4 a list of important program variable 
definitions is given. Section 7.5 has descriptions of the subroutines shown 
in Fig. 7.1. Finally, Section 7.6 is a statement listing of the ANTDATA program. 
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Figure 7.1 Block diagram of ANTDATA program. 
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7.3 User’s Guide to ANTDATA 

The following steps are what the user must consider when he uses ANTDATA. 

When an input data card must be supplied it will be underlined. 

Step l o Specify pattern number and location in storage. 

Read NUMPAT and NUMTRK from a card under a 1415 format. This is the pattern 
number of the job submitted to ANTDATA. NUMTRK is the track number of disk 
storage where the data for this pattern is thought to be stored. The program 
will look at that track first. If the pattern number on that track does not 
match NUMPAT, all tracks will be searched. If the pattern is found on an un- 
expected track or not found at all, messages will be printed out. 

This step can be altered if the input form is different. For instance pattern 
data could be read in using cards. 

Step 2 . Array size. 

Read MMAX and NMAX from a card under a 1415 format. These are the sizes 
of the pattern magnitude, current magnitude, and current phase arrays, all loaded 
into A{,), for PLOT 2 and PLOT 3* For the examples presented in Chapter 4 MMAX 
and NMAX were 151, 

Step 3 . Number of correction coefficients. 

The variables ITEMP and ITEMPl are read from disk storage. ITEMP is the 
number of correction coefficients of the original pattern. ITEMPl is the number 
of correction coefficients for the final pattern, not including the original ones. 
Step 4 . Pattern data. 

Data concerning the original and final patterns are read off of disk 
storage. They are NUMPAT, TITLE, IS'XMM, ITER, ISUC, FNORM, IDISK, NORG, IC, 
(UORG(J), VORG(J), CORG(J), J=l, ITEMP), (US(J), VS(J), CORCOF(J), J=l, ITEMPl), 
ITYPE, PI, P2, P3, P4, P5, P6, PI, (SS(J), TT(J), J«=l, 400), II, 12, 13, 14, 15, 


MCUR, NCUR 
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Refer to the statement listing of subroutine INPUT of the ANTSYN program for 

a meaning of PI, P2,... and II, 12, These vary with ITYPE. 

If the original pattern is not of the Woodward-Laws on type the ORGPAT 
subroutine of ANTSYN could be used to load the original pattern and then 
corrections added to it to form the final pattern for use with ANTDATA. 

Step 5 . Options for pattern magnitude plots. 

Read OPTIU, OPTlV, 0PT2, and 0PT3 from a card under a 411 format. Use zeros 
for no plot and ones for plot. 

Step 6. U profile location. 

Read CONST from a card under a 8F10*0 format. This is the value of V 
where the profile is made. In other words, the profile is parallel to the U- 
axis with a value of V equal to CONST. If CONST is zero the profile is on the 
U-axis. Use only if 0PT1U“1, 

Step 7 . V profile location 

Read CONST from a card under a 8F10.0 format. This is the value of U where 
the profile is made. In other words, the profile is parallel to the V-axis with 
a value of U equal to CONST. If CONST/ is zero the profile is on the V-axis, 

Use only if 0PT1V=1. 

Step 8 . Parameters for PL0T2 and PL0T3 of pattern. 

Read LOWCON and DASH from a card under a 8F10.0 format. Use only if 0PT2 
and/or 0PT3 is 1. 

Step 9 . Pattern contour parameters. 

Read CONLOW, CONMAX, and CONINT from a card under a 8F10.0 format. Use 
only if 0PT2 is 1. 

Step 10 . Options for current magnitude plots. 

Read OPTIU, OPTlV, 0PT2, and 0PT3 from a card under a All format. Use 
zeros for no plot and ones for plot. OPTIU and OPTlV now refer to S and T 
profiles of the current magnitude . 
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Step 11 . S profile location. 

Read CONST from a card under a 8F10.0 format. This is the value of 
T where the profile is made. Use only if OPTIU now is 1, 

Step 12 . T profile location. 

Read CONST from a card under a 8F10.0 format. This is the value of 
S where the profile is made. Use only if OPTlV now is 1, 

Step 13 , Parameters for PL0T2 and PLOTS of current magnitude. 

Read LOWCON and DASH from a card under a 8F10.0 format. Use only if 
0PT2 and/or 0PT3 is 1, 

Step 14 . Current magnitude contour parameters. 

Read CONLOW, CONMAX, and CONINT from a card under a 8F10.0 format* Use 
only if 0PT2 is 1, 

Step 15 . Options for current phase plots. 

Read OPIU, OPTlV, 0PT2, and 0PT3 from a card under a All format. Use 
zeros for no plot and ones for plot. OPTIU and OPTlV now refer to profiles 
of current phase in the S and T directions. 

Step 16 . Parameters for PL0T2 and PL0T3 of current phase. 

Read LOWCON and DASH from a card under a 8F10.0 format. Use only if 0PT2 
and/or 0PT3 is 1. 

Step 17 . Current phase contour parameters. 

Read CONLOW, CONMAX, and CONINT from a card under a 8F10.0 format. Use 
only if 0PT2 is 1, 

Step 18 , Go to Step 1 if another job is to be run. 
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7,4 Program Variables 

Many variables used in this program were also used in ANTSYN and their 
definitions are found in Section 6.4* 

7.4.1 Definition of Some Important Integer Variables Used in ANTDATA 


ITEMP = Number of original correction coefficients, CORG. 

ITEMPl = Number of correction coefficients (not including original 
ones), CORCOF. 

MMAX = Number of points of first subscript of arrays of pattern 
magnitude, current magnitude, and current phase used in 
PL0T2 and PL0T3. 

NMAX = Number of points of second subscript of arrays of pattern 
magnitude, current magnitude, and current phase. 

OPTIU = Plot control for subroutines PLOTl, PLOTIC, and PLOTIP. It 
controls profile plots of the pattern magnitude in the U 
direction, the current magnitude in the S direction, and 
and/or the current phase in the S direction. If it is 1 
a plot is made, otherwise no plot is made. 

OP IV = Plot control for subroutines PLOTl PLOTIC and PLOTIP. It 
controls profile plots of the pattern magnitude in the V 
direction^ the current magnitude in the T direction and/or 
the current phase in the T direction. If it is 1 a plot 
is made, otherwise no plot is made. 

0PT2 = Plot control for PL0T2 subroutine. It controls contour 

plots of pattern magnitude, current magnitude, and current 
phase. If it is 1 or greater a plot is made, otherwise 
no plot is made. 

0PT3 = Plot control for PL0T3 subroutine. It controls three di- 
mensional plots of pattern magnitude, current magnitude, 
and current phase* If it is 1 or greater a plot is made, 
otherwise no plot is made. 

7,4,2 Definition of Some Important Real Variables Used in ANTDATA 

, ) = Two dimensional array with MMAX by NMAX entries. It must 

be dimensioned to handle these entries. It is used for the 
pattern magnitude in dB, the current magnitude, and the 
current phase. 


A( 
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CONINT = The interval between contour levels for PL0T2 subroutine. 

CONLOW - The lowest contour level for PL0T2 subroutine. 

CONMAX = The highest contour level for PL0T2 subroutine. 

CONST = The amount a profile is displaced from an axis (U, V, S, or T) , 

DASH = The contour level for PL0T2 subroutine equal to and below which 

all contours will be dashed. Above this value contours will be 
solid. 

LOWCON = The floor of the PL0T3 subroutine. Three dimensional plots will 
have all values below LOWCON set to zero. This is used to "clean 
up" the plot. 

7.5 Subroutine Descriptions 

The subprograms PAT, SPECPT, SOURCE, SPSOR, LOCSOR, and SPLOC have 
been discussed in Section 6,5, The remaining subprograms of ANTDATA are 
briefly described in this section. The contour and three dimensional 
plotting packages were obtained from other individuals and are so refer- 
enced. The one-dimensional plots were written by the authors and S. 
Kauffman. All of the plotting packages were written for use on the Vir- 
ginia Tech CALCOMP plotter and as sucti require the use of some local plot 
subroutines. These are also explained, 

7.5.1 ANTDATA Plot Subroutines 


SUBROUTINE PLOTl 
Purpose: 

To produce a profile plot of far field pattern magnitude vs. an appro- 
priate variable (U, V or THETA) . 

Usage: 

CALL PLOTl (PSTRT, PEND, IP, CODE, CONST, NUMPAT) 
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Description of Parameters: 


PSTRT 

PEND 

IP 

CODE 


CONST 
NUMPAT 
Remarks : 


Abscissa of first point to be plotted. 

Abscissa of last point to be plotted. 

Number of points to be plotted. This must be less than 
the dimension of array PTS, A reasonable choice is 4001. 

Labeling code. If CODE = 0 the horizontal axis will be 
left blank and the value stored in CONST will be repro- 
duced at the bottom of the plot in the form "THETA= CONST". 
If CODE-1, then the horizontal axis will be labeled "+V” 
and "-V** and the value stored in CONST will be reproduced 
as ”U=C0NST." If C0DE«2, the horizontal axis will be 
labeled "+U” and "-U" and CONST will be reproduced as 
"V=C0NST." 

Label constant. 

Pattern number. 


i. PSTRT and PEND may span any interval. However, PTS(l) must cor- 
respond to PSTRT, and PTS (IP) must correspond to PEND. 

ii. Before each subroutine call, PTS must be loaded with the appro- 
priate data points. PTS must be in dB, with points equally spaced 
from PSTRT to PEND. 

COMMON Blocks Required: COMMON /PLTl^ PTS 

Subroutines and Function Subprograms Required; FACTOR, PLOT, SYMBOL, 
NUMBER, AXIS. 

SUBROUTINE PLOTIC 
Purpose; 

I 

I 

To produce a profile plot of line source or aperture current distri- 
bution magnitude vs. an appropriate variable (S, T or THETA), 

Usage : 

CALL PLOTIC (PSTRT, PEND, IP, CODE, CONST, NUMPAT) 



Description of Parameters: 


PSTRT 

PEND 

IP 

CODE 


CONST 
NUMPAT 
Remarks : 


Abscissa of first point to be plotted. 

- Abscissa of last point to be plotted. 

- Number of points to be plotted. This must be less than 
the dimension of array PTS, A reasonable choice is 4001. 

- Labeling code. If CODE = 0, the horizontal axis will be 

left blank and the value stored in CONST will be repro- 
duced at the bottom of the plot in the form "THETA = CONST. 
If CODE = 1, then the horizontal axis will be labeled "+T" 
and and the value stored ..in CONST will be reproduced 

as "S=C0NST." If CODE = 2, the horizontal axis will be 
labeled "+S" and "-S" and CONST will be reproduced as "T= 
CONST." 

- Label constant. 

- Pattern number. 


1. The vertical axis is automatically scaled from 0,0 to 0,05, 0,0 
to 0.1, 0.0 to 0,2, 0.0 to 0.5, 0.0 to 1.0 depending on the range 
of the data In PTS. 

ii. Before each subroutine call, PTS must be loaded with appropriate 
data points none of which must be less than zero. 

COMMON Blocks Required: COMMON /PLTl/, PTS 

Subroutines and Function Subprograms Required: FACTOR, PLOT, SYMBOL, NUM- 

BER, AXIS. 

SUBROUTINE PLOTIP 

Purpose: 

To produce a profile plot of line source or aperture current distri- 
bution phase (in degrees) vs. an appropriate variable (S, T or THETA). 

Usage: 

CALL PLOTIP (PSTRT, PEND, IP, CODE, CONST, NUMPAT) 
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Description of Parameters: 

PSTRT - Abscissa of first point to be plotted. 


PEND 

IP 

CODE 


Abscissa of last point to be plotted. 
Number of points to be plotted. 


the dimension of array PTS, 


This must be less than 
A reasonable choice is 4001. 


CONST 


Labeling code. If CODE = 0, the horizontal axis will be 
left blank and the value stored in CONST will be repro- 
duced at the bottom of the plot in the form '*THETA=CONST.'' 
If CODE = 1, the horizontal axis will be labeled "+T" and 
"-T" and the value stored in CONST will be reproduced as 
"S=C0NST,” If CODE « 2, the horizontal axis will be la- 
beled "+S" and "-S" and CONST will be reproduced as ”T= 
CONST." 

Label constant. 


NDMPAT - Pattern number. 


Remarks ; 

i. Before each subroutine call» PTS must be loaded with appropriate 
data points in degrees (-180 ^ PTS ^ 180), 

COMMON Blocks Required: COMMON /PLTl/ PTS 

Subroutines and Functions Required: FACTOR, PLOT, SYMBOL, NUMBER, AXIS 


SUBROUTINE PL0T2 
Purpose: 

To draw a contour map of data in array A. 

Usage: 

CALL PL0T2' (N, M, CONLOW, CONMAX, CONINT, NUMPAT, DASH) 

Description of Parameters: 

N - Number of points to be plotted in horizontal direction. 

M - Number of points to be plotted in vertical direction, 

CONLOW - Lowest contour level to be plotted. 
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CONMAX - Highest contour level to be plotted* 

CONINT - Interval between contour levels, 

NUMPAT - Pattern number, 

DASH - Contour levels below DASH will be dashed rather than 
solid 

Remarks : 

i. If CONINT = 0 or CONLOW = CONMAX, the subroutine will determine 
the contour levels to be plotted. 

COMMON Blocks Required: COMMON /ARRAY/ A 

Subroutine and Function Subprograms Required: CNLAL, PLOT, FACTOR, SYMBOL, 

NUMBER 

Reference: D. A. Vossler, E, S, Robinson 

SUBROUTINE CNLAL 
Purpose: 

To determine the maximum and minimum of array X, To calculate the 
Increment that will give 10 equally spaced contours between the maximum 
and minimum of array X, 

Usage: 

CALL CNLAL (N, M, CNTRLO, CMAX, CNTRAL, NC) 

Description of Parameters: 

N - Number of points in horizontal direction. 

M - Number of points in vertical direction. 

CNTRLO - Least value of array X, 

CMAX ~ Greatest value of array X, 

CNTRAL - ABS(CMAX-CNTRLO)/10, 

NC - IF NC=0: CNTRLO and CMAX are returned. 

IF NC-1: CNTROL, CMAX, and CNTRAL are returned. 
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COMMON Blocks Required: COMMON /ARRAY/ X 

■Subroutine and Function Subprogram Required: None. 

SUBROUTINE PLOTL 
Purpose: 

To plot a straight line between two points. 

Usage: 

CALL PLOTL (XI, Y1,X2,Y2, SCALE) 

Description of Parameters: 

XI Abscissa of starting point. 

Yl Ordinate of starting point. 

X2 Abscissa of end point, 

Y2 Ordinate of end point. 

SCALE - Scale factor used in converting (XI, Yl) and (X2,Y2) to 
proper plot size. 

Kemark : 

PLOTL Is equivalent to the following two statements: 

CALL PL0T(SCALE*Xl+2. ,SCALE*yi+0.25,3) 

CALL PLOT(SCALE*X2+2. ,SCALE*Y2+0.25,2) 

Where PLOT is a standard VPI plot subroutine. 

COMMON Blocks Required: None. 

Subroutine and Function Subprograms Required: None, 

SUBROUTINE PL0T3 
Purpose: 

To draw a perspective view of a contoured suface. 

Description of Parameters and Important Variables: 

^ 'T* Nijmber of data points along first axis, 

M - Number of data points along the second axis. 
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NUMPAT 

K 

SDISTS 

YAW 

PITCH 

SIZE 

KODE 

MGN 


SCALE 


Remarks : 


- Pattern number (for labeling) 

- Code that tells whether to draw the grid lines: 

K=l: Along the N-Dimension only. 

K=2: Along the M-Dlmension only. 

K=3: Along both dimensions. 

- Distance from surface to eye when perspective is calcu- 
lated — SKISTS > 6 usually won*t show any distortion 
due to PARALLAX, 

- (In degrees) How far the object is turned away from the 
viewer, 

- (In degrees) How the surface is lowered or raised at the 
front edge. (Positive pitch tends to expose the top of 
the figure.) 

- (In inches) The size of the cube that encloses the figure. 

- "Hidden Line" switch. If KODE=0, do not draw hidden lines... 
If K0DE=1, all hidden lines are plotted, 

- Whether to draw the outline of the cube to help orient the 
viewer. MGN-0: Do not draw any outline of the cube. MGN=1: 
Draw the outline of the cube separate from the figure. MGN=2: 
Draw the outline of the cube superimposed on the surface plot, 
MGN=3; Draw only the three edges of the cube that meet at the 
origin, superimposed on the surface plot, 

- How tall to make the surface relative to the height of the 

cube. SCALE=0: Do not scale the data at all but trust the 

user that the data is^not so high that it runs off the paper. 
SCALE=1: Scale the data so the top of the data just touches 

the top of the cube. SCALE=0.3: Scale the data so the top 

of the surface is three-tenths as high as the cube. 


i. It is very expensive to draw opaque surfaces, because the program has 
to determine the visibility of every point, the computer time doubles 
or triples. . .Depending on how many line segments are partially visible. 

ii. The contents of array A are destroyed in computation. 

COMMON Blocks Required: 

COMMON /ARRAY/ A 

COMMON /THREE6/ ANGA,ANGB ,HV,D, SU,SV 
COMMON /THRi;:E7/ SL,SM,SN,CX.CY,CZ ,QX,QY,QZ,SD 
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Subroutine and Function Subprograms Required: THREE2, THREE3, THREES, THREEA, 

THREES, PLOT, FACTOR, SYMBOL, NUMBER. 

Reference: Howard Jesperson, Iowa State University. 

SUBROUTINE THREE 2 
Purpose: 

To find the corners of a three-dimensional rotated cube. 

Usage: 

CALL THREE2(X, Y, Z, XP, H, V, KODE) 

Description of Parameters: 

(X,Y,Z) - Vectors of length 2. Position of rotated vertices. 

XP - Height above paper, 

(H,V) - Vectors of length 10, Location of projected vertices on 

paper, 

KODE - Dummy variable 
COMMON Blocks Required: None 

Subroutine and Function Subprograms Required: THREE4 

/ 

SUBROUTINE THREE4 
Purpose: 

To find the location of a point in the rotated cube. 

Usage: 

CALL THREE4(X, Y, Z, XP, YP, ZP, KODE) 

Description of Parameters: 

(X,Y,Z) - Coordinates of point to be located. 

XP Height above paper of point. 

(YP,ZP) Coordinates of projection on paper. 
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COMMON Blocks Required: 

COMMON /THREE6/ ANGA, ANGB, HV, D, SH, SV 

COMMON /THREE?/ SL, SM, SN, CX> CY, CZ, QX, QY, QZ, SD 

Subroutine and Function Subprograms Required: None. 

SUBROUTINE THREE 3 
Purpose: 

To plot a perspective of a three-dimensional figure. 

Usage: 

CALL THREE3(X, Y, N, M, H, V, K, KODE) 

Description of Parameters: 

X - Vector of length 2 

Y - Vector of length 2 

N - Nijmber of points in first direction 

M - Number of points in second direction 

H,V - Vectors of length 10. . .Coordinates of projected vertices of 
cube, 

K - Grid Line Code (See Subroutine PL0T3) 

KODE - Hidden Line Switch (See Subroutine PL0T3) 

COMMON Blocks Required: 

COMMON /THREE6/ ANGA,ANGB,HV,D,SH,SV 
COMMON /THREE?/ SL,SM,SN,CX,CY,CZ,QX,QY,QZ,SD 
COMMON /ARRAY/ A 

Subroutine and Function Subprograms Required: THREE4, THREES, PLOT 

SUBROUTINE THREES 
Purpose: 

To see if a point on the projected three-dimensional figure is visible. 
Usage: 

CALL THREE5(XI, YJ, M, P, KODE) 
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Description of Parameters: 

XI “ Abscissa of the projected point. 

YJ - Ordinate of the projected point. 

M - Number of horizontal points. 

N - Number of vertical points. 

P - PLOT CODE; IF P = -1 INVISIBLE TO VISIBLE 

1 VISIBLE TO INVISIBLE 
0 VISIBLE TO VISIBLE OR 
INVISIBLE TO INVISIBLE. 

KODE “ Hidden Line Code (See Subroutine PLOT3) 

COMMON Blocks Required : 

COMMON /ARRAY/ A 

COMMON /THREE6/ ANGA, ANGB, HV, D, SH, SV 

COMMON /THREE?/ SL, SM, SN, CX, CY, CZ, QX, QY, QZ, SD 


Subroutine and Function Subprograms Required: None, 


7.5,2 Virginia Tech Subroutines 

VP I UTILITY SUBPROGRAMS 

Purpose 

To return the current month, day, and year. 

To return the time of day in ten thousandths of an hour 
(Integer Format) 

To set the interval timer to zero 

To return the amount of CPU time used in hundredths of 
seconds since the last call to TIMEON, 

Reference: VIRGINIA POLYTECHNIC INSTITUTE AND STATE UNIVERSITY, "COMPUTING 

CENTER USER’S GUIDE," VOL. 7, "UTILITY PROGRAMS." 

VP I PLOTTER SUBROUTINES 
Subroutine Purpose 

AXIS To draw a labeled axis of a desired length with annotated 

tic marks every inch. 


Subprograms 

DATE 

STIME 

TIMEON 

TIMECK 



To scale the plot iti both the X and Y directions. 

To draw a floating point number. 

To move the pen from one point to another, to drai7 a 
line between points, to establish a new origin, and to 
signal the end of a plot* 

To plot a string of alphanumeric characters. 

VIRGINIA POLYTECHNIC INSTITUTE AND STATE UNIVERSITY, "COMPUTING 
CENTER USER'S GUIDE," VOL. 6, "THE PLOTTER." 

INTEGER FUNCTION ICVT 
Purpose: 

To convert an integer to character format internal coding. 

Usage: 

ICHAR=ICVT(NUM) 

Remark; 

This function was originally written in assembler. Object deck is read 
in under the SYSLIN dataset. 


FACTOR 

NUMBER 

PLOT 

SYMBOL 

Reference: 
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7.6 Statement Listing of ANTDATA 
7,6.1 Job Control Language 

Listed below are the JCL statements required for the ANTDATA program 
to run on the Virginia Tech IBM 370/155 system. 


//B0663PL3 JOB 507C2, COFFEY 

/^MAIN T iNE=19, tINES=3,REGIGN=25OK,CAR0S=C 
/=>PRICmiTY PRIORITY 

/♦FORMAT PL,FORMS=PFGURAGV*PEN=>XFI KE , DDNAME=CALCCMP 
// EXEC FaRTGCG»PARM.G0=»PAPER=39tPTIME=ll9SEP = MAIN 
//FORT.SYSIN DD ♦ 

/♦ 

//GO.SYSLIB DD i 

// 00 OSN^VPI,PLOTLIB»01SP=SHR 

// DD DSN=VPI .SSPLIB,DISP^SHR 

//GO.SYSLIN DO 
// 00 ♦ 

/* 

//G0.FT22F001 00 DSN=ANTOATA .A5C7C2» UNlT=3330t VOL = SER = liSFRPKt 0 I SP^ SHk 
//GO.FT 06F001 00 SYS0UT=A ,0C B= ( BLKS I Z E== 133 t R ECFM=F ) 

//GO.SYSTN DD * 

/♦ 

// 


7.6.2 Source Listing 

Listed below are the FORTRAN IV statements of the ANTDATA program. 



O' o 
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C 

r 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PnOGi^AM OFSCRIPTION: 

ANTCATA IS THE OUTPUT PROGRAM USfcO IN CONJUNCT I GN WITH ANTSY?*2- 
BY SPECIFYING APPROPRIATE PARAMETERS ANTDATA WILL G17 l A ONE* 
TWC* CR THREE DIMENSION PLOT OF THE PATTERN (IN OB. K lor SUURC 
MAGNlTUOf„ ANO THE SOURCE PHASE. 


INPUT/QUIPUT: 

THE MAJORITY OF INPUT IS TAKEN FROM ANTSYN2 VIA DIRECT-ACCESS 
UNIT 22 ( ANTDATA, A507C25. PARAMETERS AND JOB OPTIONS ART SUPPL 
THROUGH UNIT 5 (SYSIN). ALL OUTPUT IS CHANNELLED TC UNIT 6 
(SYSPRINT) and THE PLOTTER (PLOTIK 


VERSION I 73 - 09A — APRIL 5, 1973 


WRITTEN BY: W* L. 

S, R. 
E. L. 


STUTZMAN 

KAUFFMAN 

COFFEY 


UNDER NASA GRANTS 47'-004-*l03 


ADDITIONAL SUBPROGRAMS REQUIRED: 

ICVT -- ASSEMBLER LANGUAGE SUBPROGRAM TO CONVERT 12 INl^GS 
TO A2 CHARACTER FORMAT. 


DEFINE FILE 22 I 35» 9 100, E ,NREC 7^ 


2 

3 

A 

5 

6 




11 

12 

I 3 

1 5 
16 
17 
Ifi 


01 MENS I ON A ( 151 V 151 I , PT S 1 4001 ) ,US I 500 I , V S ( 500 > .CORCUF ( SCO I 

CIMENSICN UGRGI lOO),VORG( IOQ 3 ,CORG 5 lOOJ 

GIMENSICN AU( 15 n ,AV( 151 I 

integer TITLE(20) 

real snitls^bni tlt 

REAL LGWCUN 

INTEGER GPT lU , 0 PT 1 V,QPT 2 , 0 PT 3 ,PX,PY 
COMPLEX CTEMP,CI 
COMMON /PLT 1 / PTS 
CCMMCN /ARRAY/ A 

CtlMMClN /PATl/ PI ,P 2 «(P 3 ®P 4 ,P 5 oP 6 ,PI,SS( 400 ) ,TT( 400 J ,KR( 400 ) 
COMMON /PAT?/ I 1 , 12 , I 3 ,i 4 «I 5 
COMMGN /LOC/ ITYPE ' 

! PAGE^O 
PI= 3. 14 159265 
CI=CMPLX(OoO* l.OS 
CALL STJME( STSME 3 
T IME^Oo 
9999 CONTINUE 
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21 C/^LL TI^bCN 

22 iPAGr. = iPAt;E+i 

23 CALL OAien I, Jl,Kl) 

24 CALL 

25 , IHP=IT/lCOOO 

27 FUR- IFR/10000. 

26 FJ^-FHR«^60« 

2<3 n«IN=F^*. 

30 ISEC={FH-IHIN)=»6C 

31 IHR^ICVHIHRI 

32 I^^IN^ICVTUWIN} 

33 I StOlCVTi ISFU 

34 ilPC = lCVT( IPAGEJ 

3‘3 WRn E(6i,n I loJIfKl* IHR» IMIN,IS£C.IPG 

36 1 F0RPATUHl.2Xt* ANTOATA I VERSION 1 LEVEL 2*, 

$eX,«VPJ EE DEPT. %5X»«DATE = • , A2 » ■ * A2 , • ,A2 , 

$5X«»TIMb = %A2i,».®,A2«®o%A2flOX»*PAGE 00*, A2 ///) 

C 

C READ PATTERN NUH8ER AND TRACK — VERIFY THAT PATTER IS ACTUALLY 

C STORfcO 

C 

37 READ<S,IC , EN0=999 ) NUHPAT ,NUMTRK 

38 1C F0RMATI14I5) 

39 IF (f>IUMPAT.£0.0) GO TO 999 

4C feRITE (6,7041 NU.PPAT 

41 704 FORMAT! “ PLOT OUTPUT FOR PATTERN* * 15 ) 

42 REAL (22“NUHrHK,20) NUM 

43 2C FnSf*AT(A4) 

fc4 lF(NUR-rC.NUNI?AT) GO TO 51 

'45 no 30 1 = 2,25 

46 REAl)(22M,20} NU?* 

47 IF (NUf^oEQoNUf^PAn GO TO 50 

48 30 CONTINUE 

C 

C NUMPAT IS NOT ON DISK 

C 

49 IvRITE (6,401 NUHPAT 

5C 4C rrjRPATC IHO, ^PATTERN NUMBER* , 15*® WAS NOT LOCATED — PROGRAM HALIM 

51 GO TG 999 
C 

C NUHPAT roUNO ON UNEXPECTED TRACK 

C 

52 50 WR1TE(6,60» NUMPAT* NUMTRK , I 

53 60 FCRMATI LHOo ® PATTERN NUMBER® *15*® WAS NOT FOUND ON TRACK*, I 2, 

BUT WAS LOCATED ON TRACK® ,,521 

54 NUHTRK^I 

5 5 51 COMINUC 

C 

C BEGIN PROCESSING 

C 

56 READ(59lOJ PHAX,NMAX 

57 RFAD( 22®NUMTRK,7U I1EMP,ITEMP1 


58 


70 FORMAT ( 104X ,2A4 J 



59 


6 C 


6 L 
62 
63 
6 ^ 
65 
£6 
6 7 . 
68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 

,82 

83 

84 

85 

86 
87 
8 8 

89 

90 

91 

92 
9 3 

94 

95 

96 

97 


98 

99 
ICC 
IQI 
IC 2 
10 3 

1C4 
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22«NUMTRKaCl J NUMPAT ,T I TLE » S SYMM , I TER , 1 SUC , FN0«K , I 0 1 SK , 
$NC9(W IC, CUCRGU ) ? VORGU ) ♦C0RG« J i 5 J-lt I TEMP ) » 

$(US( J) ,VS( J) ,CGRCOF< J> ,J^l, ITEMPH, ITYPE.Pl,P2,P3,P4,P5,r»6, 
tPl *(SS( J) ,TT( J) tJ=l,400),Il*I2,13,I4,I5,KCUK,NCUR 

101 FCRPAT ( 75A4 9 lU200A4n 
G 

c keac options for pattern magnitude 

c 

REA0<5,29> rPTlU90PTlV»0PT2,0PT3 
29 FORMAU^ll^ 

lF(GPTlU-n 80 » 8 l»e 0 
ei CCMIKUE 

RFAD( 593 U const 
IF (MMAX.LEel ) GO TO 80 
00 90 J-K4001 

u={ j-n*c.ooo5-i,o 

SUM=0« 

00 9U K^l^NORG 

911 SUP^SUM+CGRG(KJ«PAT(U-UORG(K>*CONST~VORG(K) , ITYP1£) 
lFMCoLE«.01 GO TO 90 
CO 91 I, 1C 

SUM^SUP+CORCOF(K1«PAT1U-US<KI»CONST-VS(K ), ITYPE ) 

91 CONTlNUe 

9C PTS( J I=2C««AL0G10IA6S(SUHI ) 

WRITE«6,92) CONST 

92 FORMAT C ®CU-AXIS PROFILE PLOT REQUESTED — V = *,F6.3) 

CALL PLOT 1(-Io0a*0. 4001,2. CONST. NUMPAT) 

aO IFlOPTlV^n 82,83.82 
8^ CONTINUE 

REArJ5^^i) CONST 
iF^NMAXoL'Eol 1 GO TO 82 
DC 90C J=l,400l 
V=1J-1 H'CcCC05-lo0 

SUP=0o i 

CO 909 K=1,NCSG 

9C9 SUM^SUM4^C0RGUS«PATIC0NST-U0I<G(K) .V-VORG(K) , ITYPfc) 

IF( ICaLEoO) GO TO 900 
CO 910 K=1,IC 

9 1C SUP'-SUM^CCRCOF1KJ«PAT(CONST-USJK) .V-VSCK) , I TYPE ) 

9CC PTS U )=2C,*ALQG10UBS( SUMJ ) 

WRIT£^6o931 CONST 

93 FC«MAT( oCV-AXIS PROFILE PLOT REQUESTED — U = •,F6o3) 

CALL PLOT U-loC 9 loOo4C01.1. CONST, NUMPATl 

B2 IF (CPT2^0PT31 85.85.84 
84 CONTINUE 
C 

C generate PAITERM ARRAY 

C 

REA0(5,3il LOWCON.DASH 

IFt^'.MAXoLEol oORo NMAXoLE.U GO TO 239 
DELTAU*2,0/« 5^MAX-U 
CELTAV- 2 oO/«NF^aX-U 
WRITEf6.7CU LCbdCON.LQSwCGN 

701 FOPMAI « VCPAT S ERN IS NOW BEING GENERATEU. IF PAlTERN < •,F7-2, 
$0 PATTERN = ° ®F7o2» 

IF « IT VPE oGTo 5) GO TO 50CC 



IC5 

106 

IC7 

ica 

109 

uc 


111 

112 

U3 

UA 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 
129 
130' 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 
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C 

C LO/iD UP AU ANC AV. 

C 

DO 2CCC I-1,MMAX 
( I-l )*CELTAU 

2CC0 AUm=PAHU\0.,ITYPE) 

CO 2010 J=1,NMAX 
V=U-n«D£:LTAV 
2C1C AV( J)xPAT( 0- .VtlTYPE) 

c 

C eEGIM 

c 

u=-l .0-DELTAU 
DC 2020 M=1,M«AX 
U=U+OELTAU 
V=-1<»0-DELTAV 
CO 2C2C N=1,NMAX 

v=v^oeltav 

TFHP=0. 

CO 2030 K=1,NCRG 
I = aeS(U-UCRG(Kn/0ELTAU + 1.5 
J = ABS( V-VOKG(Kn/DELTAV+l-5 
20 30 TEPP=TEMP+CORG(K)*AU(l )*AV( J) 

IF( IC.Le.C) GO TO 2020 
DC 2040 K=1,IC 
I=ABS(U“US(K) ) /DELTAU^l.5 
J=ABS(V-V$(K) )/0ELTAV+1.5 
2C4C TEP'P = TEPP4^C0RC0FI KM'AUCn^AVC J) 

202C A(M*N ) = 2C,*AL0G10< ABS(TEMP)) 

GC 10 239 
5CCC COMINUE- 

CO 2CG M=lo^MAX 
U^-1 .0^>-^H-n^0ELTAU 
CO 201 N=UNWAX 
V=-lo04iN“ll*DELTAV 
TEMP^O, 

CO 242 I=1,N0RG 

242 TEMp = TEHP^>CORG( I 5*PAT( U-UORGI I ) , V-VORGl 1 ) ,1 TYPE ) 
IFCIC.te.05 GO TO 2021 

DO 202 S = 

202 TEf'P = TEMP^CDRCOFUl*PATCU-US« I 5 s,V-VS! I > ,IT YPE5 
2C21 CONTIWUE 

ACP,N5 = 20o’5'AL0Gl0< ABSITEMPI 5 

201 COMINUt 
2CC COMTINUF 
239 COt^TlWUe 

IFCGPT2S 210t>210o211 
211 RFADCS^Bl) CONLOW.CONHAX^CONINT 
31 FORMAT(EFIO.O) 

IFCI^f^AXolEol cORo N^iAX-LEoU GO TO 230 
no 257 H = lo«i^AK 
Cn 257 N=lt,NMAX 

IF(A^^^9N5 otT. LOHCON5 AC M,N ) = LGWCON 
257 COMINUE 

ViR [ TE C6 o220 5 CONLOW oCOWMAX pCONlMT 
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i5^ 220 FG5^^^AT( ’OC(if^<TCUR PLOT OF PATTERN REOUESTcU*/ I 

$» LCWeST CONTOUR * •»F7.2/ 

$’ HIGHEST CONTOUR = *ff7.Z/ i 

$• CCNTCUR INTERVAL = •♦F7.2> ' 

155 CALL PLCT2 (PRAX*NHAX,CONLOW,CONMAX,CONlNT,NUMPAT,nASH) ' 

6 21C IF(fJPT3) 230,230,231 

I “3 7 231 ^R1TE(6,2AC1 

15B 2A0 FCRMATIIHO, 'THREE - DIMENSIONAL PLOT OF PATTERN KECUTSTrO') , 

159 CALL PL0T3(PMAX,NMAX,NUMPAT) 

160 23C CONTINUE 

161 IF{PMAX.LE,I.0R,NMAX.LE.1) WRIT6(6,23) 

162 23 FOftPATl'O TWO AND THREE DIM- PLOTS CANCELL' u SMCi SOURCE IS 

$ONF DIMENSIONAL*) 

163 b5 CONTINUE 

C .j 

C FNO OF PATTFRN 

C 

c 

164 IA=0 I 

165 IFUTYPE-EC. 1) GO TO 401 

166 IFIITYPE-EC.B) GO TO 401 

167 IF { ITYPE.EQ.4) GO TO 401 

168 IF( ITYPE.FQ.6) GO TO 401 i 

169 ACC WRITE(6,4C2) 1 

170 402 FORMAT! IHO, *THE SOURCE IS AN ARRAY — THIS PGM IS FuR CONTINGUS SO ' 

SURGES ONLY* » 

171 !A=1 

172 401 CONTINUE 

173 P3TFMP=P3 i 

174 P5TTMP=P5 | 

p5 P6TEMP=P6 ! 

.76 iFUTYPE-n 404,403,404 ' 

177 404 1F(ITYPF“3) 405,403,405 

178 403 CONTINUE 1 

C ITYPE= 1 OR 3 

U9 INITLS^C. 

18C 0FLTAS=0- 

181 FINALS=0. 

182 INITLT=P2 

183 FINALT=P2+P1 

184 P3=P1/4CC0- 

185 CELTAT=P3 

186 GO TO 410 

187 405 IF(ITVP£-4) 407,406,407 

188 4C6 CONTINUE 

C ITYPE=4 

189 INITLS=P3 

190 F1NALS=P3+P1 

191 TNITLT=P4 

192 FINALT=P4+P2 

193 P5=P2/4CC0. 

194 P6=P2/4C00. 

195 CELTAT*P6 

196 DELTAS~P5 

197 GO TO 41C 

"98 407 CONTINUE 

►99 IFmYPF-6) 4 10, 409 0 410 
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2C0 

201 

2C2 

203 

20^ 

2C5 

2G6 

2C7 

2C8 

2C9 

210 

211 

212 

213 

21^ 

215 

21fc 

217 

218 
219 
22C 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 
25C 

251 

252 

253 

254 

255 

256 


409 


410 


301 


305 
304 

306 
303 

307 
302 
31C 


315 
314 

316 
313 

317 

311 

322 

3CC0 


INITLS=P3 

FINALS=P3+2.«P1 

1NITLT=P4 

FINALT~P4+2.«Pl 

P5-P1/2000. 

P6=P1/2CC0* 

DELTAT=P6 

CELTAS=P5 

CGIVTINUE 

READ(5»29> 0PT1U,0PT1V,0PT2,0PT3 
lF{CPTlll-n 302*301,302 
CONTINUE 

REAn<5,3U CONST 
IF( lA.EO.l) GO TO 3000 
IFCf'MAX.LE*!) GO TO 302 
J = 1 

IFIDELTAT.NE.O, I J= 1 . 5> ( CONST-IN I TLT ) /DELTAT 

no 303 1=1,4001 

CTEWP=(0,0,C.0) 

lFmORG.LE-0) GO TO 304 

no 305 K=1,N0RG 

CTEMP=CTEMP+CORG(K|»SOURCECI,J,UORG(K) ,VORG(K) , 1 i YPl" ) 
|F( IC.LE.O) GO TO 303 
CO 306 K=1,IC 

CTERP=CTEMP + CORCOF(K|*SOURCE(I,J,US<K) ,VS<K) , ITYPE J 
PTSU)=CABSICTEHP) 

WRITE«6,307) CONST 

FORMAT! 'OS-AXIS PROFILE PLOT REQUESTED — T = 

CALL PLOTIC(INITLS,F1NALS,4001,2,CQNST,NUMPAT ) 
CONTINUE 

IF(CPTIV-I) 311,310.311 

CONTINUE 

READ15,31) CONST 
IFCIA.EG.n GO TO 3000 
1F!NMAX,LE.U GO TO 322 


1 = 1 

IF(DELTAS,NE«0.0) 
00 313 J=l,400l 
CTEMP=(C. 0,0.0) 


I = l.5+(cf0NST-INirLS)/l)ELrAS 


IF(NORG.LE.O) go TO 314 
DC 315 K=l,NCRG 

CTE«P=C¥EMp+CQRGCK)# SOURCE! I ,J,UORG(K) .VGHGCK) 


ITYPL ) 


1F( IC.LEoOS GO TO 313 
CO 316 K=1,5C 

CTFMP=CTEMP+CORCOF|K)*SOURCE(I,J,US!K) ,VS(K> , ITYPE ) 
PTSlJ)=CAeSICTEMP) , 

fc»R!TEC6,3m CONST 

FORMAT ! °CT-AXIS PROFILE PLOT REQUESTED — S = *,16.5) 
CALL PLOT 1C! INI TL¥®F INAL T,400l ,1 .CONST , NUMPA T) 

CONTINUE 

CONTINUE 

CONTINUE 

P3=P3TEMP 

P5=P5TEMP 


P6=P6TEMP 

MCUR=51 


NCUR=51 



257 

256 

259 

260 


261 

262 

263 

26 ^ 

265 

266 
267 
26H 

269 

270 

271 

272 

273 
27 ^ 
275 
2 76 

277 

278 


279 

2«C 

281 

282 

283 

28 ^ 

285 

286 
287 


288 

289 

290 
29L 
292 


293 

29 ^ 

295 

296 

297 

298 
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IF(0PF2+CPT3) 320*320,321 
321 COMIMJt 

RfaOi 5,31 ) LGWCCNtDASH 
IF ( lA.EQ.l) GO TO 333 

C . 

C GENERATE CURRENT MAGNITUDE ARRAY 

C 

CO 33C K=1*MCUR 
no 331 N=l,NCUR 
CALL LCCSCR(«,N,S,T) 

C TEMP = 0. 

UC 339 K=1,NCRG 

3 39 CTE?'P=C^E^^P'^CORG^K|«SOUf<CE(M,N,UGRG(K) tVQKG(K) , I TYPE) 

DC 332 K=1*IC 

332 CTEI^P = CTEMP + C0RC0F(K)4'S0URCE(M*N,US(K) ,VS(K) , I TYPE ) 

A(P,N)= CABS(CTEMP) 

331 CGNllNUr 
33 C CONTINUE 

333 CONTINUE 

IF(GPT2» 350,350,351 
351 REA0(5,3U CONLOW,CONMA)(,CONINT 
IF( lA.EO.l) GO TO 360 
IF(PMAX.LE.1.0R,NHAX-LE.I) go to 360 
KRITE (6,340) CGNLGW,CONMAX,CONINT 
34C FOPWAT( “ CCONTGUR PLOT OF CURRENT MAGNITUDE RECUESTEDV 
$• LOWEST CONTOUR = «,F7.4/ 

HIGHEST CONTOUR = • ,F7*A/ 

$* CONTOUR INTERVAL = ' ,F7*4) 

CALL PLCT2 « MCUR ,NCUR,CONLOW,CONMAX,CGNI NT , NU«P AT , C-V SH 1 
350 IF(CPT3J 360,360,361 
361 IFt lA.EO.U GO TO 360 
WRITE(69355) 

355 FORPATUHO,® THREE DIMENSION PLOT OF CURRENT MAGN(Tunh Ki iJUr lET • ) 
CALL PL0T3 ( MCUR ,NCUR , NUMPAT 5 
36C CONTINUE 

IF (f^MAX.LE» l.OR.NMAX.LE*!) ^WRITEl6,23) 

32C CONTINUE 
C 

c END OF CURRENT MAGNITUDE 

C 

c 

c READ OPTIONS FOR CURRENT PHASE 

C 

READ (5,295 GPT1U,OPT1V,OPT2,OP T3 
IF(OPT2+CPT3) 520,520,521 
521 CONTINUE 

IFHAoECcn GO TO 533 
RFAO( 5o318 LOWCQN,OASH 
C 

C GENERATE CURRENT PHASE 

C 

DO 530 M=l,MCUR 

CO 531 N=1,NCUR 

CALL LOCSOR(M,N,S,T 5 
CTEMP=Oo 
CO 549 X=1,NCRG 

CTEMP = CTEMP<^C0RG(KS'&SnURCE(M9N,U0RG(R) oVOKGIK) , { TYP:^) 
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299 

549 

CONTINUE 

300 


CO 532 K=UIC 

301 

532 

CTE^!P5:CTE^*P•^C0RC0FCK)♦S0URC£(M,N,US(K),VS(K^ , irVPfE i 

3C2 


CREAL = REAUCTEHP) 

303 


CIWAG = AIHAG(CTEMP) 

3G4 


A(P,Ni ~ATAN2ICIWA.G»CREAL)*180,/PI 

3C5 

531 

CONTINUE 

306 

53C 

CONTINUE 

307 

533 

CONTINUE 

308 


IF(OPT25 550»550,55l 

3C9 

551 

READ(5»3U C0NL0W»C0NNAX«CGN1NT 

3 to 


Ifi lA.EQoU 60 TO 560 

■ni 


IF {KMAXoLE^l •ORoNNAX.LEoli GO TO 560 

312 


feiRI rE«6,54CI CONLOW»CONMAX,CONINT 

313 

540 

FORHATC "CCONTOUR PLOT OF CURRENT PHASE RECUESlhC */ 
LOWEST CONTOUR = •#F7.2/ 

HIGHEST CONTOUR = «,F7.2/ 

CONTOUR INTERVAL = *,F7«2) 

31^ 


CALL PLOT2 I MCUR,NCUR ,CONLOW »CONMAX, CONI NT t NUMPAT , 0 

315 

55C 

IFICPT3S 560,560,561 

316 

561 

IFUApEQ.U go TO 56C 

317 


WRITE {6, 555) 

318 

555 

FCRPAT(«OTHREE DIMENSION PLOT OF CURRENT PHASE RLQU 

319 


CALL PL0T3(MCUR,NCUR,NU«PAT) 

320 

56C 

CONTINUE 

321 


IF (MMAXnLE.l •ORoNMAX-LE-ll WRITE (6,23) 

322 

52C 

CONTINUE 

323 


CALL TIMECKUSEC) 

324 


FM!N=ISEC/600C, 

325 


feRITE(6p897) FMIN 

326 

697 

FORMAT! «OEXECUTION TIME? *,F6.2,« MINUTES.*) 

327 


f IME=TIME^FMSN 

328 


GO TO 9999 

329 

999 

WRITEI6,600) 

330 

60C 

F0RMATUH1« END OF EXECUTION //) 

331 


CALL PLGT(0e0^C=0,-4) 

332 


WRf TE{6t,S98) TIME 

333 

898 

FQRMAT(0OTOTAL EXECUTION TIME? »,F7.2,* MINUTES.*) 

334 


CALL STIMECJTIME) 

335 


ET=JTIME“!TIME 

336 


FMIN=IT/I0000««'60o 

337 


WR I TE(6tj899 ) FMIN 

338 

899 

FORMAinOTOrAt ELAPSED TIME? %F7.2,* MINUTES. •) 

339 


STCP 

340 


ENC 

341 


SUBROUTINE PLOTl 5 PSTR T „ PEND ^ I P,CQDE ,C0NST , NUMPA T) 


SUBROL'TINE PLOT! 


HRUrnw BYs s« R. KAUFMAN 


TATts ?3“113 flPKilL 23„ 1973 
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C 

C 


c 

r 

IWPUT : 


c 

PSTRT 

— BEGINNING Of PLOT 

c 

PtND 

— END OF PLOT 

c 

IP 

— NUMBER OF POINTS TO BE PLOTTED 

c 

c 

CODfc 

— labelling variable. if C0DE=0: LA8LL-* THETA ^ •; 

IF C0DE=12 LABEL=»U ^ IF CCDE - 2: LAbcL = «T - 

c 

COKST 

— CONSTANT PARAMETER FOR LABEL 

c 

NUP^PftT 

— number of PATTERN FOR LABEL. 


c 

c 

c 


^^2 


INTEGER NAME! 2), CODE 

34 3 


CIWENSICN PTSUOOl) 

34<^> 


CCPMCN /PLTl/ PTS 

345 


CALL FACT0RI0.5S 

346 


CALL PL0T(e-,l.,~3J 

347 


IFlCOCE.GT.Or GO TO 3 

34P 


CALL SYPeCL|-1.2®-.6t.2p8HTHETA = , 0 -, 8 ) 

349 


CALL NUMBER(.3*-.8,.2,C0NST*0. ,3) 

35C 


GO TO 6 

351 

3 

IFCCOCEoGToU GO TO 4 

352 


CALL SYMB0U-l.,*«.8..2,lHU*0.rl) 

35 3 


CALL SYMBOLIC. 9»-. 8, o2,3H = ,0.»3) 

354 


CALL NUM6ER(-'.2,-o8,o2,CCNST,0.,3) 

355 


CALL SYMB0Ll-2.6,-.4*.2.2H*-V#0.,2) 

356 


CALL $YWB0L«2c4,-.4, .2, 2H+V, 0- . 2 ) 

357 


GO TO 6 

3 50 

4 

iP(C0DE.GTo2J GO TO 5 

359 


CALL SYMBOLS -lo, -. 89 .2^ IHVtO.®!) 

360 


CALL SYMbOLC-.9,-«8,.2,3H = ,0.,3) 

36 1 


call numbers - e2o-oBso2 bCCNST»Occ 3) 

362 


CALL SYMBCLS-2.6,-«4 9 o2,2H-Ut0o,2> 

363 


CALL SYMB0U2.4p-.4 9.2,2H+U,0. »2) 

364 

6 

CONTINUE 

365 


PDEl=SPSTRF-FEND5/IP 

366 


PTIC^S ( A8SSPSIRT-PENDH/10» > 

36 i 


CALL AXlS(-5ooCo*lH t? 1 ®4. » 0^ 9 PSTRT , PT I C ) 

368 


PSTPE=PSTRT<^l6o«PTIC K.OOOOl 

369 


PI IC2=PTIC«0oCC001 

370 


CALL--' AKIS? I 09 O 09 IH t,lp4o9 0.vPSTRE,PTlC2> 

371 


CALL PL0TS~1.90o93J 

372 


CALL PLOTS lo 9 O. v2) 

3 73 


CALL PLOISCo^CooBT 

374 


CALL PLOTSOo95o6o2J 

37 5 


CALL PLOT«OooOo93S 

376 


CALL SyM80L5-oC59-o49o2BiM090.9U 

■377 


X=Co05 

37 8 


CC 10 J=lo6 

379 


Y = Co5^U-l J ’fi'loO 

380 


CALL PLOTS-XoV93S 

381 

10 

CALL PLCT«XpV92) 

382 


CALL PLOTS 

383 


IF{PTSU)oLE.-5Co 1 PTSSU=-50e 

38 4 


FS=( 8PTSS 1 n/lOo 
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385 

386 
38? 

388 

389 
j9C 
391 
39 2 
39 3 

394 

395 

396 

397 

398 


C^LL PL0I(“5« ,FSv3J 
CC 1 iwr==i,fp 

THETS==( {PST?^T-nWl*POEU )*5. 1/ ( A8S (PSTRT M 
FOHS=UPTS( IWin / lO. ) + 5.5 
IFl F0BS*LT.0.5) GO TO 1 
CALL PLOT? 1TH£TS»FDBS,2) 

I CONTINUl 

CALL SYMBCL«-5o0fl-0o8,0o 125» lOHPATTERN = 
FNU«=FLOAT(NUi^PAT? 

CALL N‘Uf'BERC“3o87,-0.a,0<,l25,FNUM,0.»-l ) 

CALL AX1S(“S. 5*Oo 5, 17HFAR FIELD PATTERN, 17 ,5,0 ,9o, ,-50 . , 
CALL PLOT? ,-35 
5 RETURN 
ENC 


3 99 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SU^TROuriNE PLOT ICTPSTRT, PEND, IP, CODE, CONST, NUMPAT) 


SUBROUTINE PLOTIC 


WRITTEN BVs S, R, KAUFMAN 


GATE: 73-113 APRIL 24,1973 


INPUTS 

PSTRT — BEGINNING OF PLOT 

PEND — END OF PLOT 

IP — number of POINTS TO BE PLOTTED 

CODE — LABELLING VARiABLEo IF CODE^O; LABEL 
IF CODE=ls LABEL IS °S ^ IF CODt-2: 
CONST — CONSTANT PARAMETER FOR LABEL, 

NUPPAT — PATTERN NUMBER FOR LABEL, 


ACC 

INTEGER NAMEI259CODE 

4C1 

CALL FACT0R«C*5> 

402 

CALL PLOT! 009 a, , -3D 

4C3 

Glf^ENSIEN PTS1400U 

4C4 

CCMMCN /Pin/ PTS 

4C5 

o 

II 

406 

[F(CODEoGT,OJ GO TO 

4C ? 

CALL SYMBrJU-lo29'’0o 

4ce 

call NUMHERUCaSi-OoB 

409 

GO TU 6 

410 

3 IF«CGOe,GT<,n GO TO 

4U 

CALL SYMBOL ij-lo09-0* 

412 

CALL SYMBOL <I-0o99-0<. 

413 

CALL NUMeERJ-0o29-0o 

4 14 

CALL SYMBOL l-2<,6,-0o 

n 5 

CALL SYMBOtt 2o4o-0o4 


, 0*0931 


IS • 
LA Oh 


10, J 


THE J h ~ * ; 

L IS • i ^ ^ 
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^16 

^17 

^18 

^19 

^20 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 
44 3 
444 
4 4 5 
44 6 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 
46C 

461 

462 

463 
46 4 

465 

466 

467 

468 

469 
47C 
471 


GO TO 6 

4 IF(CGG£.GT.2) GO TCi 5 

CALL SYNeCL(-l*0f-0.et0.2. lHTtC,0, 1 J 
CALL SYMB0L(-C,9,-‘0,8,0.2»3H = ,0,0,3» 

CALL NUMBLR<-C.2»--0.8,0.2,CONST,a.0,3) 

CALL SYM8CL{-2.6,-0,4f0.2»2H-5,0.0,2) 

CALL SYf^HQL(2.4,-0.4,0,2,2H+S,0.0,2) 

6 CONTIMUfc 

PDEL = (PSTRT'-PEN0)/1P 

PTIC^T UBS(PSTRT-PENDI )/lO.O) 

CALL AXIS(^5.C,C,0*IH , 1»4. 0,0,0, PSTRT *PT1C i 
PSTR6 = PSTRT+(6.0<'PT IC) +0.0000 1 
PTIC2=PTIC+C.CC001 

CALL AXIS( U0,C.0,1H , l,4.0,0.0,P$TRE ,PT IC2 ) 

CALL PLOT(-l .0,0.0, 3> 

CALL PLOT( l.C, 0.0,2 » 

CALL PLOT (0.0,0. 0,3) 

CALL PLOnO.0,5.8,2) 

CALL PLCT(C.C,0.0,3) 

CALL SYMBOL t “C. C5, -C. 4, O; 2, IHO, 0.0,1 ) 

X=C.05 
UC 10 J=l,6 
Y = 0.5+( J-U*l.C 
CALL PLOT (-X.YfB) 

1C CALL PLCnx,Y,2) 

CALL PLnT(C.,Q.,3) 

PSTRS=5.C*PSTRT 

GMAX=O.C 

DO 1IWI=1,IP 

1F(PTS( IWD.GT.GMAX) GMAX=PT S ( I Ml ) 

1 CONTINUE 

IF(GMAX.GT.0.5) ASCLE=l. 

IF(GMAX.LE.0.5) ASCLF=0.5 
1F(GMAX.LE.0.2) ASCLE=0.2 
IF(GHAX.LE.O.n ASCLE=0.l 
IF(GMAX.LE.0.05) ASCLE=0.05 
PTSA=( (PTS« U) /ASCLE)*5.+0.5 
CALL PL0n-5.0,PTSA,3) 

DC 7 IW1 = KIP 
THETA=(PSTRT-( IW1*PDEU ) 

THETS=(THETA/(A8SCPSTRT) ) )*5. 

APTS=( (PTSnwin/ASCLE)*5. + 0.5 
CALL PL0T5 THETSoAPTS,2) 

7 CONTINUE 

IF(GMAX.GT.0.5 ) AT IC^O. 2+0.0001 
IF(GMAX.LE.0.5J AT1C*0. 1+0. 0001 
EF(GMAX»Leo0„20) AT I C==0. 04+0 . 0001 
SFIGMAX.LEoO.U AHC=0 .02+0. 0001 

IIF3GMAXolFo0o05) AT IC=0. OL+O.OOOl 

CALL AXIS(“5.5,C.5,16HS0URCe MAGNI TUOE , 16, 5.0,90.0 , 0 .0 , AT I C ) 
CALL SYMBOLI-5. 0,-0. 8,0. 125, lOHPATTERN = ,0.,10) 
FNU«=FL0AT(NUMPAT5 

CALL NUMBER(-3.5,-0.e,C. 125,FNUM,0. ,-l) 

CALL PLCT(8.,-lo,-3J 

5 return 
ENC 


A72 


A-86 

SURROUTlNr PLGTlPtPSTRT.PEND. iP»COOE,CtJNST,NOMPAr > 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r. 


SUBRCUTINE PLCTIP 
WRlTltN by: S. R. KAUFHAN 


bate: 7^-113 APRIL 24»1973 


INPUT: 

PSTRT — BEGINNING OF PLOT 
PENC — END OF PLOT 

IP — NUMBER OF POINTS TO BE PLOTTED (IP < AOC2 I 

CODE — LABELLING PARAWETER, IF CODE - 0: LABEL IS 

•THETA = •; IF CODE = 1: LABEL IS *S = •; II 
LABEL = «T ^ 

CONST — CONSTANT PARAMETER IN LABEL. 

NUMPAT — PATTERN NUMBER FOR LABEL. 


A73 


INTEGER NAME(2),C0DE 

^74 


CI^ENSICN PTS(4001) 

475 


COMMON /PLTl/PTS 

476 


CALL FACTCR(0.5) 

4 77 


CALL PLOT (8. *1., -3) 

47B 


IF(COOE.GT.O) GO TO 3 

&7Q 


CALL SYMB0L(-l.2*-6.*.2,8HTHETA = 

^480 


CALL NUMBER! .3, -.8* .2,CONST,0. , 3 ) 

481 


GO TO 6 

482 

3 

IF(CODE.GT.l ) GO TO 4 

48 3 


CALL SYMB0U-lo,-.8,.2.1HS»0.,l) 

484 


CALL SYM60L{-o9,-.8*o2g3H = p0pj3) 

485 


CALL NUMBER(-.2f-.8,.2,C0NST*0.,3) 

486 


CALL SYMB0L(-2.6»-.4*.2,2H-Tf .0,2) 

487 


CALL SYMB0Li2.4,-.4,.2,2H+T,.0,2) 

488 


GO TO 6 

489 

4 

IF (C0DE.GT.2) GO TO 5 

490 


CALL SYMBCLf-l.,-.8,.2,lHT,0.,U 

49 1 


CALL SYMBOL!--. 99-=. 8,. 2, 3H = ,0-,3) 

492 


CALL NUMBER ! 8,. 2, CONST ,0., 3) 

493 


CALL SYMB0L«^2.6,-.4,.2,2H-5,0.,2) 

494 


CALL SYMBGU 2.4,~.4,.2,2H+S,0. ,2) 

495 

6 

PDEL^(PSTRT-PENOI/IP 

496 


PT IC=( ( ABS(PSTRT-PENO) I/IO.O) 

49T 


CALL A;USS-5o0,0.091H ,1,4.0,0.0,P 

49 8 


P$TRE = PSTRT4^!6.0«PT !C) +0.00001 

49 9 


PTIC2=PT1C+0.C0001 

50C 


CALL AXlS(la>,0.,lH ,1,4.,0. fPSTRE, 

501 


CALL PLCT(-U *0.,3) 

5C2 


CALL PLOT! 1. ,0. ,2) 

5C3 


CALL PLGKCo ,Qo 9 35 

504 


CALL PLOT «0 0,5. 8, 21 

^60 5 


CALL PLCTICo ,0o,3) 


C < j o c 



5C6 

5G7 

5C8 

5C9 

510 

511 

512 

513 
51^ 

515 

516 

517 

518 

519 

520 

521 

522 

523 
52^ 

525 

526 
52 7 
528 


A~87 

CALL SYMBOL* 5*.?, 1M0,0. t L ) 

CALL PLnnO.OtO.OtBI 
X-C.05 
DO 10 J^l*9 
Y=C.5+< J“1 )*1*0 
CALL PL0T(“X,Y»3) 

1C CALL PL0T{X,Y,2) 

CALL PLCTCO-0, 0.0,3) 

DC I fWl=l,IP 
THETA=(PS7RT-( IWl^PDEL) ) 
THErS=(THeTA/UeS(PSTRT)))«5. 

PAKGS==PTS( IWI)/180.*A.+4.5 

IF( IWl.EO.DCALL PLOT! THETS,PANGS*3 ) 

IF( IWUEO.UGO TO I 
CALL PLCT(THETS,PANGS,2) 

1 CONTINUE 

CALL AXI$(-5.5*0.5tlAHAPeRTURE PHASE , 1 ^. 8. ,90. , -I bO. 
CALL SYMBOL (-5.0,-0.8,0.125, lOHPATTERN = ,0.,lC) 
FNLM=FUJAT(NUMPAT) 

CALL NUMBER (-3. 5, -0.8,0. 125 ,FNUM ,0. I ) 

CALL PLCT(8.,-l.,-3) 

5 RETURN 
END 


529 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

53C 

531 

532 

533 
53^ 

535 

536 

537 

538 

539 
54C 
5^1 
5^2 
5^3 
5 ^ ^ 

5^5 ■ 

546 

547 

548 

549 
55C 


SUBROUTINE PLGT2 (N, M ,CONLOWtCONMAX,CONlNT , NL MPA T , DASH ) 

A= N BY M MATRIX OF DATA POINTS 

CGNLOW= LOWEST CONTOUR TO BE PLOTTED 

CONMAX= HIGHEST CONTOUR TO BE PLOTTED 

C0N1NT= INTERVAL BETWEEN CONTOURS 

WQROS= TEXT OF PLOT LABEL 

NCHAR- NUMBER OF CHARACTERS INPLOT LABEL 

CONTOURS BELOW -40. ARE PLOTTED AS DASHED LINTS 


DIMHNSICN A( 151,151 ),RA( 151 ),RB( 151 ),X( 151) ,Y( 151 ) 

COMMON /ARRAY/ A 
CALL PLOT* 8., 0., -3) 

CALL FACTOR (0.7) 

MS-H 

NS=N 

RAUO=MS/NS 

SCALE=10o 

ANM=AMAX0(N-1,M-1) 

lF(RATI0-lo0U,l,2 

1 SX=ANM 
SY=RATIC^ANM 
GC TO 3 

2 5X=1./RATIC4'ANM 
SV=ANM 

3 SMAX*AMAXllSX,SY) 

SS=SX/SMdX 
SYS=SV/SMAX 
IF(CONINT )4 b4o5 

4 CALL CNLAt (lN,MpCNTRLOcCMAX,CNTRAL,0) 

GC TO 7 
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551 

552 

553 

555 

556 

557 

558 

559 
56C 

561 

562 

563 

564 

565 

566 

567 

568 

569 
57C 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 
504 

585 

586 
58 7' 
580 
509 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 
6CC 
601 
602 

603 

604 
6C5 
606 
607 


5 CNT«AL==CCNINT 
lF(CtjNMAX*eQ,CONLOW)GO TO 6 
CHAX^CONf'AX 
CNTi^LO^CCNLOW 

GO TC 7 

6 CALL cnlal(n,m,cntrlo,cmax»cntral, n 

7 CCNTIIMUC 
CONLQVi=CNTRLO 
CQNHAX=Cf^AX 
CGMNT=CNTRAL 

CALL PL0TtCSS,SYS,0* , SYS, SCALE) 

CALL PLCTLCG*,Q.tSS,0., SCALE) 

CALL PLCTL1SS,0.,SS, SYS, SCALE) 

CALL PLOTLCC. ,SYS,0. ,0» .SCALE) 

CALL PL0TU.CC,0*25,3) 

CALL PLOno.60,0.25,2) 

CALL PLCTt0.60,8o25,2) 

CALL PLOTC 1.00,8.25,2) 

CALL PLOT! 1.00,0.25,2) 

CALL SYf*8CL (0.88,0.45,0.12, lOHPATTERN - 
FNUf*-NUWPAT 

CALL WUM8ER(0.88,2.075,0.12,FNUM,90. ,-l) 
1125 YCCNA-l.O/SMAX 

D£LTAX=SX/FL0ATIN“1 ) 

XU)=0.0 
Y(1)=0.0 
RB(1) ^ A(l,l) 

CO 27 J^2,N 
ReU)=AU,l) 

27 X( J)=X( J-D^^DELTAX 
DEL TAY=SY /FLOAT ( M-1 ) 

CO 28 J=2,P 

28 Y{ J)=Y( J-1)^0ELTAY 

CC 118 K=2,M 

DC 30 Jl^UN 
RA(J)=RB(J) 

30 RB(J)=A(J,K) 

CO lie 

35 ASSIGN 112 TO L 
RR^RA(J) 

XX-X( J) 

YV=Y(K-i I 
37 RL=RR 
XL = XX 
YL = YY 

39 IF (RL-RAC J^l ) ) 41,40 ,40 

4C EF«RL-RBljn42,50 ,50 

41 RL = RA(J-U 
XL = X U^U 
YL= YCK-1) 

GO TO 4C 

42 RL=R8CJ) 

XL=X (J) 

YL=Y(K) 

GO TO 5C 

SO RS=RR 

xs=xx 


,9C.,lO) 
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600 


YS = YY 


609 


IF(ftS-RA( J-1 IS 52f 52t53 

610 

52 

IF(RS-R8(Jn 60,60,54 


611 

53 

RS = RA ( J^U 


612 


XS=X (J-1) 


613 


YS =YtK-il 


6l4i 


GO rn 52 


615 

54 

RS=RB( J) 


616 


xs=x u> 


61 ? 


YS=Y (K| 


618 


GO TC 60 


619 

6C 

RM = RR 


620 


XW=XX 


621 


YP« = VY 


622 


IF(Ri«-RS) 62, 62,61 


623 

61 

IF«RM-RU7C ,62 ,62 


62^ 

62 

«f^ = RA(J-l) 


625 


XM = X IJ-U 


626 


YM=V IK-l) 


627 


IF(Rf«-RSI 64,64,63 


628 

63 

IF«RM-RLI 70,64,64 


629 

64 

m = RBiJJ 


630 


XM^X rj) 


631 


YP=Y (K) 


632 

TC 

YCS=YS*YCONA 


633 


YCFi = YM*YCONA 


63<«b 


YCU=YL^YCONA 


635 

71 

YS=YS-SY 


636 


Vf^ = VM-SY 


637 


VL=YL»SY 


638 

12 

XCS=XS/SMAX 


639 


XO^=XP*/S?«AX 


6^0 


XCL=XL/SWAX 


6^1 


ftC = CNTRLG 


6-^2 

ao 

!F (RC.,GToCMAX S GO 

TO no 

6^3 


SF ( RC oNE« RM ) GO TO 

91 

6^ ^ 

81 

IF ( m RS I GO TO 

91 

6<% 5 

82 

IF i HL oEQ. RM ) GO TO 

100 

6^6 

91 

IFI RC-RSUOO,95,92 


647 

92 

IFCRC^RM 596,93,94 


648 

93 

XPA^XGM 


64 9 


YPA-YCM 


650 


GO TO 99 


651 

94 

IF ( RC-RL UC6, 103,110 


652 

95 

C^O.O 


653 


GO TO 97 


654 

96 

0 = «RC-RSS/UN-RS1 


655 

9 7 

XPA = KCS-G«UCS~XCM) 


656 


VPA * YCS-Q03YCS-YCMI 


657 

99 

Q - IRC-RSI/2RI-RS) 


650 


XP8 a XCS“Q«« XCS^XCU 


659 


VP8 = YCS-Q^^iYCS-YCLI 


660 


IF«RC-DASHS ton 5,10115, 

10116 

661 

1CU5 

XP8l = Co505 XPA4XP8S 


662 


YPei=0o5^(l YPA^>-VPBS 



6S3 JF5ABS »PB E S 00 1 J 5001 , 5002 » 5002 

6(b^ 5CC1 IFCABS 3 VPA-VPB U-=o OOi HOO^, 5002p 5002 
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665 

500? 

CALI PLCT(SCALe*XPA*2,,SCALE*YPA+0.25, 3 

666 


CALL PLOK SC ALf + XPB 1+2., SC ALE* YPn 1+0.25 

667 


GO TO ICO 

666 

IC116 

IF( ABS (XPA-XP8) -.00 1)5003* 5004, 5004 

669 

5CC1 

IF( ABS ( YP A- YPB) -.001) 100*5004,5004 

670 

5C04 

CALL PLQT( SCALE*XPA+2.*SCALE*YPA+0.25, 3 

671 


CALL PL0T(SCALE*XPB+2.,SCAL6*YPB+0.25, 2 

672 

ICC 

KC = RC + CNTRAL 

671 


GO TO 80 

67<! 

103 

XPA = XCL 

675 


VPA = YCL 

676 


GO TO 99 

677 

106 

C=«RC-RM )/<RL-RM) 

678 


XPA = XCM“0*UCM-XGL) 

679 


YP A = YCM-0*1 YC^!-YCt ) 

680 


GO TO 99 

681 

uo 

GC TO L, <112,118) 

682 

112 

ASSIGN 118 TO 1 

60 5 


RR =RBIJ-1) 

686 


XX =X U-l) 

685 


VY =Y CfO 

686 


GO TO 37 

667 

118 

CONTINUE 

680 


CALL PLOT CSCALe+6.,0.,-3) 

689 


RETURN 

69C 


END 


691 


SUBROUTINE CNL At (N*M ,CNTRLO, CMAX ,CNT«AL 

692 


DIRENSICN X<151,151) 

69 3 


COMMON /ARRAY/ X 

694 


XHAX^XU^U 

695 


xs«iN=xa,n 

696 


CO 10 J^l,R 

697 


CO lO I=1?,N 

698 


X^AX = ARAXUXP«AX,X<I,J) ) 

699 

10 

X^|N=AMINUXHIN,X(I , J) ) 

7CC 


IFfNCoEQoU GO TO 40 

701 


IF<KWAXoEG.Oo )G0 TO 20 

702 


SN^XS^SN/XHAX 

703 


!F( SN)2Cb2C,30 

704 

2C 

XCCN=A8S(XMAX) 

705 


IF < ABS UP INS .GTo ABS UMAX ) IXCON^ABS C XM I N 

706 


CNTRAL = XC0C^/lOo 

?07 


CMAX^XMAX 

?G8 


CNTRLG=CNTRAI*AINTUKIN/CNTRAU 

709 


RETURN 

7 i C 

3C 

XCCN=^ABS( XMAK-Xf^IN) 

7li 


CNTRAL=XC0W/10o 

712 


CNTRiC^XPSN 

711 


CMAX=XMAX 

714 


RETURN . 

715 

4C 

CMAX=CNTRAi*AINTUMAX/CNTRAL ) 

716 


CNTRLO=CNTRAL*AIWT?XNiN/CNTRAL 1 

717 


RETURN 

718 


ENC 



A-91 


719 

?2C 

721 

722 
123 


1T^:> 

I2t 

121 

728 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUPRCUTIKE PLCTL (XU Y1,X2,Y2.S) 
01Wf=NSIGN XC2),Y(2> 

X( n= S ♦Xl + 2* 

X(2M S *X2+2. 

YU )= S *Y l + C,25 
Y(2)= S *72+0.25 
CALL PLCT(X(U,Y(1I,3) 

CALL PL0T(X( 2UV(2) ,2S 

RETURN 

cNC 


SUBROtUNE PLGT3 

PURPCSE: TG DRAW A PERSPECTIVE VIEW OF A CGNTOUHLU SUKEACL. 


DESCRIPTION OF PARAMETERS AND IMPORTANT VARIABLES: 


N - number of data points along FIRST AXIS. 

M - number of data POINTS ALONG THE SECOND AXIS. 

NUMPAT - PATTERN NUMBER (FOR LABELLING). 

K ^ CODE THAT TELLS WHETHER TO DRAW THE GRID LINES: 

K=l: along the N-OIMENSICN ONLY. 

K^2: ALONG THE M-^OIMENSION ONLY. 

K=3: ALONG BOTH DIMENSIONS. 

CISTS - DISTANCE FROM SURFACE TO EYE WHEN PERSPECTIVE IS 
CALCULATED — SDISTS > 6 USUALLY WGNTU SHUW ANY 
niSTCRTION DUE TO PARALLAX. 

YAW ~ UN DEGREES) HOW FAR THE OBJECT IS TURNED AHAY FRG>1 

THE VIEWER. 


PITCH 


SIZE 


KODE 


PGN 


SCALE 


UN DEGREES) HOW THE SURFACE IS LOWERED OK RAISED 
THE FRONT EDGE. (POSITIVE PITCH TENDS TO EXPOSE THT 
TCP OF THE FIGURE). 

UN INCHES) THE SIZE OF THE CUBE THAT ENCLOSES THE 
FIGURE. 

o^HlODEN LINE" SWITCH. IF KODE = 0 00 NOT DRAW Hi ODEN 
LINES. ..IF KOQE-1* ALL HIDDEN LINES ARE PLOTTED, 

WHETHER TO DRAW THE OUTLINE OF THE CUBE TO HELP ORIENT 
THE VIEWER. MGN=0: 00 NOT DRAW ANY (JUTLINT OF THE 
CURE. MGN=i: DRAW THE OUTLINE OF (HE CURE SEPARAFt 

FROM THE FIGURE. MGN==2: DRAW THE UUTLlNf OF THE 

CUBE SUPERIMPOSED ON THE SURFACE PLOT. MGN=T; ORAw 
ONLY THE THREE EDGES OF THE CUBE THAT MLLT AT FHt 
ORIGINc SUPERIMPOSED ON THE SURFACE PLOT. 

HOW TALL TO MAS^E THE SURFACE RELATIVE TG THE HFiGHT 
OF THE CUBE. SCAL6=0S DO NOT SCALE THE OA(A Af ALL 



u o o 
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729 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BUT TRUST THE USER THAT THE DATA IS NUT SC HIGh THAI 
IT RUNS OFF THE PAPER, SCftLE = l: SCALE THE OATA 
THE TOP OF THE DATA JUST TOUCHES THE fCP CF THc CU^ic, 
SCALE=0.32 SCALE THE DATA SO T ht TOP OF ^hr SU?^FACi I 
THREE TENTHS AS HIGH AS THE CUBf . 


REMARKS. 


!, IT IS VERY EXPENSIVE TO ORAh OPAQUE SURFACES, BECAUSE TMc 
PRCGRAR HAS TO DETERMINE THE VISIBILITY OF EVERY POIHT, ThE 
COMPUTER TINE DOUBLES Oft TRIPLES. DEPEND INC ON HOW MANY LINh 
SEGMENTS ARE PARTIALLY VISIBLE. 

II. THE CONTENTS OF ARRAY A ARE DESTROYED IN COMPUTATION. 


COMMON BLOCKS REQUIRED: 

COMMON /ARRAY/ A 

COMMON /THR6E6/ ANGA , ANGB , HV,D , SH , SV 

COMMON /THREE?/ SL , SM , SN, CX ,CY ,C / , OX , QY , UZ , S 0 


SUBROUTINE AND FUNCTION SUBPROGRAMS REQUIKEO’: 
THREE2 
THREE 3 
THREE A 
THREES 
PLOT 
FACTOR 
SYMBOL 
NUMBER 


REFERENCESHCWARO JESPERSON, IOWA STATE UNIVEkSirV. 

MODIFIED FOR USE AT VPI BY: ROBERT D. KEPHART. 

S. R. KAUFFMAN 
Wo Lo STUTZMAN 
E. L. COFFEY 


subroutine PiOT35NoMoNUMPAn 

N BY M MATRIX OF DATA POINTS 
.ji3.>S‘#«t^0RDS= PLOT LABELING 

>&0«««*NCHAR= NUMBER GF CHARACTERS IN THE PLOT LADLE* SPACES 


730 

731 

732 


COMMON /ARRAY/ A 

COMMON /THRE66/ ANGA^ ANGB ,HV sO ,SH,SV 

COMMON /THRtE?/ SL s, SM s SN oCX , C V ;,CZ g QY i, Q2 ^ SO 



731 

73^ 

735 

736 

737 
^38 

74C 
7<,l 
1^2 
743 
7 AA 
1A5 
7A6 
lAl 
IAS 
1A9 
75C 

751 

752 

753 
75^ 

755 

756 

757 

758 

759 

760 

761 

762 

763 
76^1 

765 

766 

767 

768 

769 
77C 

7 71 

77? 

773 

774 

775 

776 

777 

7 7P 


779 

liec 


A«93 


niMTPgSION HU05,va0)9X«2KY{2),Zi2>,XP(8),A(l5l,l5l) 

K = 3 

S0ISTS=6.U 
PlTCH^slOe 
YAV* = 45, 

SIZt-=lC. 

KGCE=0 
f«G^ = 0 
SC/iLE=l, 

CALL FACTO«ll»n 
CALL PLCTl8,,,2,-35 
CALL PLflTr,4,0. ^21 
CALL PLCT«»498*.,2J 
CALL PLCT?0*98 .b2) 

CALL PLOT(0.,0«p2) 

CALL SYMB0U0o3*K0 ,0. 12* 1 OHPATTERN = ,90. ,10) 

Ntl^ = FLCAT(NUWPATS 

CALL NUMBtiU0®3*2.130 *0o 12 * FNUM ,90« U 
CALL PL0TU.5*-.2*-‘3l 
^ 

ANGA - «YAfc^^270«> * <.0174532 
ANGB ^ PITCH ♦ .C174532 
FV = SIZE 

C OIRECTICN CCPSPCNENTS TO THE EYE* 

SL = “COS( ANGA ) ♦ COS( ANGB ) 

SH = -SINI ANGA ) « COS( ANGB ) 

SN = -SIN ( ANGB I 

IF { ABSJ SN I .NF, l.O ) GO TO 10 
WRITE! 6 , 20 ) 

20 FCRPAT i «1« , 20X, 20t«^«) * / *0** 'YOU AKL ArTLFPri 

JK STPATGHT DOWN ( QR UP ) AT THE SURFACE » ) 

GC TO 2150 

10 CGNTSNU6 

SO ^ l.O / SCRT( loO - SN 2 5 

X! U = 1 
X(2I ^ N 
vm = I 
V ( 2 ) = 

1=PAXG«M*NS 

C FIND THE diagonal OF THE ®»CUBE^o 

0 = 2 -fr N ** ' 2 + f 2 

0 = SORT i 0 ) 

SCL = SCISTS D 

C CCCRDINATES OF YOUR EVEo 
CX -SL ^ SCL 
CY = -SH ^ SCL 
CZ = -SN =» SCL 

C COORDINATES OF THE PROJECTION PLANE. 

QX = CX ^ 0 SL 
CY = CY C =5= SP 
QZ, = CZ + 0 ^ SN 

C PPPPPPPPPPPPPPPPPPPPPPPPPP 

GL TC 2060 

C WRITE(6®10CJ CXoCY.CZ 

C WRITES6*1CC& OX.QVoQZ 

mo FOPPATC lX*3n5o 3) 

2060 Z!2)=A(un 



A-94 




zm=AU,»n 

?82 


DC lOCO J=l*N 

?83 


LC 1000 

784 


1 ( 1 )=AMINUZI l> ,AU*KI ) 

785) 


ZC2) = AMAXl(Z(2)7A(J5Kn 

786 

ICOG 

CCNTINUE 

787 


»ANGE= ^ 

788 


DGL=l«0 

789 


! F 1 SCALE.NEcOJ DOL=T/RANGE*SCALE 


C SCALE THE SURFACE TO HAKE A "CUBE". 

79C 


DC 30 1 = 1 , N 

791 


DC 30 J ^ 1 V M 

792 


= 001 

793 

30 

CONTINUE 

794 


Z(U = c.c 

?9!i 


Z C 2 1 == T 

796 

2080 

CALL THREE? ( X , Y o Z e XP , H » V ,KOUE) 

79 7 


DO 213C B = 1 , 8 

798 


h( I J = « UPai - ox 1 ♦ SM - ( H(l) - QY ) SL ) 

799 


V ( 1 > = ^ V( I 1 - 02 ) ♦ SD 

8CC 

2130 

CONTINUE 

801 

2100 

HU0)=H8U 

802 


HC91=H(U 

803 


00 lOCl J=U8 

804 


HC 9 J = AHINHH«9KH( J n 

805 


HaO> = AHAXllHHOJpHCJI> 

806 

ICCI 

CONTINUE 

807 

2120 


ec8 


V« 10»=VUJ 

809 


CG 1002 J=lo8 

81C 


vm=sAHiNUvc9 K V u n 

811 


lO>=AHAXirVU01 oVUI 5 

812 

ICC? 

CONTINUE 

81 3 


IF I HGN oEQo 0} GO TO 2140 

814 


S = HV 

815 


IFIHGN oEQo IJ S=^l,5 

816 


SH = S/ 4HI 10I-HI9) ) 

817 


sv = s/ ivao)--v«9) ) 

818 


SH = SiGNd AHINl liSHoSVi pSH 1 

819 


SV ^ SIGNtSHoSVJ 

820 


IFJHGN oEQo ISCALL PLOT 50,»2«v’3J 

821 


CALL SYMBOLS SH! U-*H^9 5 l#SHp ! V « 1 } -V <9 ) >«SV, . 14, «0* ,0-, U 

822 


call SYHBOLI SHI3S-M! 98 ! Vl 3J-VS9H »SV« » 14„»M* ,0. , 1) 

823 


CALL SYNBOU aH5 2 5»H!9S C V( 2 ) -V « 9 8 8^SV,«. l49°Z»eC,,l) 

624 


CALL SYMBOL? S H ! 5 8-H ! 9H*SH, 1 V f 5 ) -V ( 9 ) )<'SV9,14, 1 ) 

825 


CALL PLOT! oC3oo059-3J 

826 


CALL PtCf 5 (H! U-H!9n*SHp ! V! U-V! 9 1) ♦SV, 3 I 

82 7 


CALL PLOT i !HS 28-H!9M^SH9 ! V ! 2 1 -V S 9 )) ♦SV , 2 ) 

828 


CALL PLOT (1 SHU 8-H! 9H«*SHe 3 V S i l-V ( 9 n ♦SV ^ 2 ) 

829 


CALL PLCT i SHS35-HS9) 8«SH, S V ! 3 1-VS 9 )) *SV , 2 ) 

830 


CALL PLOT S SH«U-HI9n«SHo S V C U-V S 9 U +SV , 2 ) 

831 


CALL PLOT i SH<5I-HS9IHSNo S V C 5 J ~V « 9 )) «SV , 2 ) 

032 


IFS HGN .EQ. 31 GO TO 2139 

833 


CALL PLCT ! S H ! 6 I--H « 9 H^SH , S V S 6 S-V S 9 U *SV , 2 ) 

834 


CALL PLOT ! 3 H S 2 }-H ! 9 l» ♦SH ® S V 1 2 8- V ( 9 ) } ♦SV « 2 ) 

835 


CALL PLCT C SHS45~HS9H^SH® I VH ) “V« 9 H ♦SV , 2 1 

836 


CALL PLOT i ttHS3B-H!9n^SHv S V S 3 S -V !9 H^SV , 2 ) 



837 


838 


839 


840 


841 


842 


84 3 


844 

2139 

845 


846 

214 0 

847 

215C 

848 


849 


850 



A-95 

^ HC 7J“H« J^SH, I V« 7) 

«V45I 

«HC6»-H(9) I^SH, (V(6) 
(H(ai-H<9n*SH, «V(8I 
CALL PLOT ( {H(4 )#SH, (V<4) 
CALL PLOT i «H(6)-H(9n«SH9 (V(a) 

SHU?-H^9H*SHo IVT7J 
1} GO TO 2140 
CALL PLOT ^ AINTnHM0J-H«9n«SH^“2 
CALL THREE3C XcY9N,M^HpV*K»5^0DES 
CCNTIK'UE 


CALL PLOT ( 
CALL PLOT « 
CALL PLOT i 
CALL PLOT ( 


CALL PLOT 
iFCHGN 


-W(9) )*SVr2) 
-V19> )*SVf 2) 
-V(9> )*SVf 2) 
-V<9M#SV»2) 
-V(9) M^SV,2) 
-V(9I )*SV,2) 
-VJ9I V*SVff 2) 

» J *~”2«05t““3l 


CALL PL0TU6o 9-1 o5„-3) 
RETURW 

ENO 


8?il , 

C 

C 

852 


653 

654 

655 
856 


C 


C 

C 


C 

857 
8 58 


859 

860 
861 
862 
863 


SUBROUTIWE THiREE2 « Yg Z f XP ^ H , V ,KOOE) 
flHVs THE CORKERS OF THE ROTATED CUBE« 

OIHEKSIGN 25 ,V«2KZ<2S,HI10KV(10) „XP<6) 

05G L = 0 

C7C 00 180 S = I, 2 
090 CC 170 J = 1, 2 
UC tiO 160 K ^ u 2 
130 L = L 4 i 

14C CALL THREE4 I XUJ» Y(JI, Z«KS, XP( L ), 

I HCL5 o V^ L J^KOOE S 

160 COKTIKUE 
17C CONTIWUE 
18C CONTINOE 
190 RETURN 
END 


864 

865 

866 
86 7 
868 

869 

870 

871 

872 


SUBROUTINE THREE4 i Xp XP ® YP ^ IP i,KO0E5 

C FIND THE LOCATION OF A POINT IN THE ROTATED CUBE, 

CCPPCN /THREE 6 / ANGA p ANGB 9 H¥ 9 Dp SH,SV 

CQHJ^ON /THREE7/SL 9 p SW p CX p CY » CZ , QX , UY , g/ , SO 
SK = D / I ^ X - CX 5 SL + J Y ~ CY I ♦ SM ♦ ( I - Cl ) <^SN) 

XP ^ CX SK « « X - CX > 

YP - CY -5“ SK * « V - CY I 

7P ^ CZ O' SX ^ < Z - CZ 1 

RETURN 

END 


873 SUBKOLTINE THREEB 5 X 9 Y 9 N® pH ^ V 9 K » KOOFJ 
C CRAW THE FIGURE. 

874 CCT'i^CN /'THREE 6 / ANGA p ANG 6 9 HV p O 9 SH,S\/ 

875 CCPRCN /THREET/SLpSPpSNpCXpCYpCZpQXpOYpOZjSO 
C 


8 76 


C ?f«eNSaCN x{2) pVI ZIpHUOJ pVUOJ pAUSlp 15U 



A-96 


877 

878 

879 


80 


861 

882 

885 
88^ 
685 

886 

887 

888 


889 

89C 

891 

892 

893 
89^ 

895 

896 

897 

898 

899 
9CC 
9C1 
9C2 
9C3 
9C^ 
9C5 
906 
9G7 
9C8 

909 

910 
9U 

912 

913 
91^ 

915 

916 

917 

918 

919 

920 


C 

c 

c 


/ARRAY/ A 

INTEGER UP * DOWN » PEN * P , C 
INTEGER PI , PO 


ENG ^ 1«C / 16<,0 

C CAN USE 1 / 32 CR I / 6^ FOR FINER IN7 CRPCIL A l ION 
C 

c 

UP =3 
DOWN = 2 

SE = HV / I H ( 10 ) - H ( 9 ) > 

SV = HV / I V I 10 J - V I 9 I ) 

SH = SIGNUMINKSH^SVI ,SH) 

SV = SIGN(SH»SV> 

PP = M 
NN = N 

C 08C IFUK-IS lOCe,l20,lOO 
C 

C lOC IFU-3J ino, 120»1110 
C 

C CRAW LINES ALONG THE Y-AXIS 
IZC CONTINUE 
L > 0 
LD = 1 

rc = 0.5 * LD 

c 

l^C DG 1C60 J = 1, H 
G ' =0 

YJ = J 

16C DO 1030 I = 1® NN 


XI = L 

call threes i . XI »YJ 9 N 5 M , P ,KOOE) 
PEN = UP 

IF r P I 510 t 520 ^ 530 
51C CONTINUE 

IF C Q 5 540 „ 550 , 540 
52C CONTINUE 

IF 1 0 D 610 '0 1020 s 610 
53C CCNTINUE 

IF S C D 540 0 550 * 540 
54C CONTINUE 

PEN = DOWN 
GC TO l?0 
55C CONTINUE 

IF i I oEQo 1 S GO TO 170 
DI = CD 
TG - L - LC 
T = TO ❖ 01 
PI = Q 

560 IF { A8S( 01 ) oLT. END ) GO TO 570 
CALL THRE65 U ^ Y J « No PO, KOOE I 
Cl = 01 ^ 0o5 

I F « PO oEGo C r GO FO 565 



A^97 


921 


TC - T 

922 


PI = PC 

923 


T = T ~ Cl 

92^ 


GO TG 560 

925 

565 

T = T + Cl 

926 


GO TO 56C 

927 

57C 

CCNT INUE 

9?Q 


T - TO 

929 


IF ( PI ♦ P > 170 » 170 , 560 

930 

58C 

CONTINUE 

931 

59C 

CONTINUE 

932 


ZP = ML-LC, J)+{T-L+LD)*( AIL,J)-A(L- 

933 


CALL THREE4I T,YJ,ZP*XP,HH,VV,KOOE^ 

93A 


FT = ( ( XP-QX)^SM- IHH - QY )*SL ) 

935 


VV = I VV - QZ ) ♦ SD 

936 


HH = f HH - H(9> ) ♦ SH 

93 7 


VV = ( YV - V(9) ) ♦ SV 

93 B 


CALL PLOT ( HH t VV , PEN ) 

939 

6CC 

PEN = 5 - PEN 

9^0 


GG TO 170 

941 

61C 

CONTINUE 

942 


PEN = OGHN 

943 


DI = OC 

944 


TO = L - LO 

945 


T = TO + Cl 

946 


PI ^ 0 

947 

620 

IF ( ABSI 01 ) .LT. END J GO TO 

948 


CALL THREES 1 T , Y J ,N,N, PO, KODE ) 

949 


DI = 01 ♦ 0,5 

950 


IF ( PG .EO, 0 ) GO TO 625 

951 


TG = T 

952 


PI = PO 

953 


T = T 4 DI 

954 


GC TG 620 

955 

625 

T = T - 01 

956 


GO TO 62C 

957 

63C 

CONTINUE 

958 


T - TG 

959 


IF ( PI 0 ) 600 , 600 » 590 

960 

17C 

CALL THREE4 ( Xl ♦ YJ , A( L , J ) 

961 


VV = 1 VV - OZ 1 * SO 

962 


HH = I { XP-CXI*SH“ (HH - OY )*SL » 

963 

190 

HH = I HH - HI9) I ^ SH 

964 

2C0 

VV = 1 VV - V(9) I ♦ SV 

965 


CALL PLOT ( HH * VV • PEN ) 

966 

1C2C 

Q = P 

967 

1030 

c 

c 

CGNT INUE 

968 


L = L 4 LO 

969 


LC = -LC 

97C 

c 

CD --CD 

9Tl 

1060 

C 

COKllNUc 


c 

C109C 

IFIK-3J 2C6C,>UlCo206C 


♦ SD 


HH ,y/7 


♦ SD 


,KCC I. 



A-98 


C 



C DRAfc* LINOS ALONG THE X-AXIS- 


972 

1110 

c 

CONTINUE 


973 


L = 0 


97^ 


LC = 1 


975 


CC = 0-5 * LD 


976 

1140 

DC 2040 I = 1 , N 


977 


XI i 


978 


It 

o 


979 

1 160 

no 2020 J = 1 , MM 


98C 


L = L + LO 


981 


YJ = L 


982 


CALL THRfcE5 ( X I , YJ,NtM,P,K00El 


983 


PEN * UP 


98A 


IF ( P ) 1510 » 1520 , 1530 


985 

151C 

CONTINUE 


986 


IF ( Q ) 1540 , 1550 , 1540 


98 7 

1520 

CCNTINUE 


988 


IF ( C ) 1610 , 2010 , 1610 


989 

15 30 

CCNTINUE 


990 


IF ( Q ) 1540 » 1550 « 1540 


991 

1540 

CONTINUE 


992 


PEN = DONN 


993 


GO TO 1170 


994 

155C 

CONTINUE 


995 


IF ( J .EO- 1 ) GO TO 1170 


996 


DI = DO 


997 


TG=L-LD 


998 


T = TO ♦ 01 


999 


PI = Q 


1000 

1560 

IF { AbS( 01 ) .LT. END ) GO 

TO 1570 

iCCl 


CALL THREE5 ( X I ,T,N,M,PO,KOOE) 


ICC? 


01 = DI ♦ C-5 


1003 


IF ( PO -EQ. 0 ) 60 TO 1565 

* 

ICC4 


TO = T 


1CC5 


PI = PC 


1006 


T = T - Cl 

! 

1007 


GO TC 1560 


1CC8 

1565 

T = T + Cl 


1CC9 


GO TC 1560 


lOlO 

1570 

CONTINUE 


ICll 


T = TC 


ICS? 


IF ( PI ^ P ) 1170 * 1170 , 1580 


1013 

1580 

CONTINUE 


1014 

1590 

CCNTINUE 


1015 


ZP-A(I,L-LDI + (T-L+LO) « U(I,L) - 

AI I,L-LDM/LD 

IC16 


CALL THREE4 ( XI , T * ZP p XP,HH,VV ,KCOE) 

lOO 


hti = I ( XP-QX1«=SM- (HH QY J«SL ) 

^ SI) 

IC18 


VV ^ I VV - CZ > * SO 


1019 


HH = ( HH - H(9I ) ♦ SH 


1020 


VV = ( VV - VI9> I ♦ SV 


1021 


CALL PLOT I HH , VV , PEN 1 


1022 

1600 

PEN = 5 - PEN 


1023 


GO TC 1170 


1024 

1610 

CCNTINUE 


1025 


PEN = DOWN 




A-99 


1026 


DI = 00 


102 7 


TO = L - LC 


1G28 


T = TO + Cl 


1029 


PI = C 


1030 

162C 

IF ( A8S( Of ) .Lr« 6N0 ) 

GO TO 1630 

IC31 


CALL THREE5 < X f *T »N, P, PO, KODE ) 


1C32 


DI Dl * 0.5 


1C33 


IF ( PC .to. 0 ) GO TO 1625 


1 03A 


TC = T 


1C3 5 


PI = PC 


1C36 


T = T + DI 


1037 


GO TO 1620 


10 38 

1625 

T = T - 01 


1C39 


GO TC 1620 


10*^0 

163C 

CONTINUE 


lO^l 


T = TC 


IC^2 


IF ( PI ♦ C ) 1600 « 1600 f 

1590 

1CA3 

117C 

CALL THREE4 ( XI, YJ, A( I, 

L ), XP , HH ,VV ,K00^1 



EH = i I XP-GX1*SM- (HH - QY 

)*SL ) ♦ SO 

10^5 


VV = ( VV - CZ ) ♦ SO 


lC46 

U8C 

HH := ( HH - HI9I ) ♦ SH 


l0-«j7 

1 19C 

VV = I VV ~ V(9) ) ♦ SV 


10A8 


CALL PLOT I HH , VV , PEN 

) 

ICA9 

2010 

C = P 


IC50 

2C2C 

r 

CONTINUE 


1051 

L 

L ^ L ♦ LC 


1C52 


LC = - LO 


1C53 


00 ^-DO 


1054 

2040 

CCNT INUE 


1C55 

C 

2C6C 

C 

CONTINUE 

HEPBODUCIBILMT op thp 
original page is poor ^ 

1056 

2130 

RETURN 


1C57 


END 



IC53 

SUBROUTINE THREE5 IXI,YJ,M 

,N,P,KOOE) 


C SEE IF A POINT IS 

VISIBLE. 


IC59 

CIRENSICN Zfl51,15l) 


1C6C 

COHHON /THREE6/ ANGA , ANG8 , HV , 0, SH,SV 

1061 

CORMON /THREE7/SL,SH,SN,CX 

,CY,CZ,QX,CY,QZ,SO 

1C62 

CCRRCN /ARRAY/ 

Z 


1C63 

INTEGER CUM 

, cnt , P 


1064 

REAL I • J 

, II , JJ 


1065 

1F( KOCE .EQ. 

n GO to 78 


1066 

IR - XI 



1067 

JC = YJ 



1068 

ZB = 2 I SR 

, JC ) 


1069 

IF ( XI .EQ. 

IR ) GO 

TO 2 

ic?o 

ZB = Z(1R ,JC 

) ♦ ( XI - 

IR) ♦ (ZUR + 1 , JC ) - ZI 

1071 

GO TO 4 


( 

1C72 

2 IF ( YJ .EQ. 

JC ) 

GO TCi 4 

1C73 

Ze = Z(IR , JC) ♦ (YJ~JC)*<ZUR, JC<^U - Z(IK,JC )) 

lC74 

4 continue 



lC75 

XEND = C..C 



l0 76 

OX = O.C 




IR ,JO) 



A-lOO 


1077 


YKULT = C.C 



1078 


Zf^lILT = C.O 



1079 


IF (XI .60, 

ex 

) GO TO 10 

loec 


Yf^ULT = (YJ - CY 

) / 

(XI - CX ) 

1C81 


ZHULT = ( ZB 

“ cz 

) / ( XI - CX 

1082 


ex = i.o . 



IC83 


XtNO == H + 1 



1C84 


IF { XI .LT. 

CX) 

GO TO 10 

1085 


ex = -l.C 



1086 


XEND = 0.0 



1087 

1C 

CONTINUE 



1088 


VEND = C.C 



1089 


DY = 0.0 



109C 


XKULT = 0.0 



1091 


IF ( YJ .EG. 

CY 

I GO TO 20 

1092 


Xf^liLT = ( XI ~ 

CX ) 

/ ( YJ - CY ) 

1093 


IF ( ZMULT . 

EG, 

0.0 ) ZMULT = 

1094 


DY = 1.0 



1095 


YEND = N 4 1 



1096 


IF ( YJ .LT. 

CY 1 

GO TO 20 

1C97 


CY = -1.0 



1098 


YEND = C.C 



1099 

20 

CCNT INUE 



UCC 


CUi^ = 0 



1 IC 1 


CNT = 0 



1 1C2 


P = 0 



1 103 


XP = XI 



UC4 


YB = YJ 



UC5 

3C 

CONTINUE 



U06 


II ^ AINT( XB ) 



1 107 


JJ ^ AINU YB 1 



UC8 


XSTEP ^ DX 



I1C9 


YSTEP = DY 



lUO 


IF ( XB .ec. 

11 

) GO TO 40 

111 1 


IF ( DX .LT. 

0-0 

) XSTEP = 0.0 

1112 


GC TO 45 



iin 

40 

IF ( YB .EG. 

JJ ) 

GO TO 45 

1U4 


IF ( DY .LT. 

0.0 

) YSTEP = 0.0 

1115 

4 5 

CONTINUE 



LU6 


1 = II + XSTEP 


1 117 


J = JJ + YSTEP 


1118 


IF ( I .EG. 

XENO 

) 60 TO 80 

1119 


IF ( J «ECo 

YEND 

8 60 TO 80 

1120 


XB = ex 4 XMULT 

♦ C 

J - CY 1 

1121 


Y6 = CY 4 YMULT 

♦ t 

I - CX ) 

U22 


IF ( ex .LT. 

0.0 

J GO TO 55 

1123 


IF ( XB .LT. 

1 

) GO TO 60 

1124 

5C 

xe = I 



1125 


GC TC 65 



1X26 

55 

IF ( XB .LT. 1 

) 

GO TO 50 

U27 

6C 

YB ^ J 



U28 

65 

CONTINUE 



1129 


ZB = CZ 4 ZMULT 

* { 

xo - ex ) 

me 


IR = I 



1131 


JC = J 



U32 


IF ( YB .NE. 

J 1 

GO TO 70 

1133 


• ICX = S - DX 


. 


CY > 
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1134 


ZS = Z( IR* JC ) - DX # < XB - 1 ) ♦ (ZMDX.JC) 

- /( IR, JCM 

U35 


GC TO 75 


1136 

7C 

JC!Y = J-DY 


1137 


ZS = Z( IRtJC ) - OY » 1 YB~J ) * (Z( IR.JOY ) 

- Z( iR,JC > ) 

U38 

75 

CCNTINUe 


139 


SGN ~ 1 


.140 


IF ( ZB .LT. ZS ) SGN = -1 


1141 


CUM = CUM 4 SGN 


1142 


CNT = CNT 4 1 


1143 


IF ( IA8S ( CUM) •EO. CNT ) GO TO 30 


1144 


GC TO 90 


1145 

78 

P = l 


1146 


GO TO 95 


1147 

8C 

CONTINUE 


1148 


P = 1 


U49 


IF ( CUM ) 84 t 86 . 90 


U5C 

84 

P ^ -1 


1151 


GO TO 9C 


1 152 

86 

CCNTINUE 


1153 


IF { ZB .LE. CZ > GO TO 90 


1154 


P = -1 


1155 

9C 

CONTINUE 


1156 

95 

RETURN 


1157 


ENC 



U58 


FUNCTION PAHU,Vf 

ITYPE) 


C 

r 

THIS 

SUBPROGRAM GIVES THE BASIC CORRECTION PATTERN F(U/V). 


c 

ITYPE = 

1 

— 

UNIFORM LINE SOURCE LOCATED A1 S=0- 


c 



2 

— 

UNIFORM LINEAR ARRAY LOCATED AT S^r. 


C 



3 

— 

TRIANGULAR LINE SOURCE LOCATED AT S=0. 


c 



4 

— 

UNIFORM RECTANGULAR APERTURE. 


c 



5 

— 

UNIFORM RECTANGULAR ARRAY. 


c 



6 

— 

UNIFORM CIRCULAR APERTURE. 


c 

c 



7 

— 

GENERALARRAY. 


L* 

c 

ITYPE > 

? 


SPECIAL SOURCE (FUNCTION SPECP T ( U, V , 11 YPE ) «UL 


c 

c 





BE CALLED, 


c 

c 

r 

VFRSiCN 

1 

LEVEL 1 


c 

c 

GATE 

OF 

LAST REVISION: AUGUST 29, 1973. 


c 

c 

r 

THIS 

UQHK 

SUPPORTEO BY NASA GRANT NGR 47-C04-103 


c 

FOR 

FURTHER INFORMATION CONTACT: 


c 


Irt. 

L. 

STUTZMAN DEPT. OF ELEC. ENGR. 951-6624. 


c 


E. 

L a 

COFFEY DEPT, OF ELEC. ENGR. 951-549A 

U59 

L 

COMPLEX 

TFMPo 

CEXP 

• £MAG 

1160 


common 

/PATl/ 

Pie 

P2ffP3,P49P59P6»PI ,SS« 100) , I TUCO) ,RR( lUOT 

lUl 


COMMON 

/PAT2/ 

n 9 

I2el39l4,l5 


C 



A-102 


1 162 

C 


IF(ITYPfc.GT.r) GO TO 990 

1163 

r 


GO TO ( ICC , 200,300*400,500,600, 7001 , 1 TYPC 


C 

r 


ITYPE .LT* 1 

T 16^ 



WRITE<6,1CJ ITYPF 

1165 


1C 

FGRf'iATt IHC ,5X, ITYPE HAS THE VALUE 

$*EX6CUTICN TERMNATEDM' 

U66 

c 


STOP 


c 

c 

r 


ITYPE = 1 -- UNIFORM LINE SOURCE. 


c 


FLEN=P1 

1U7 


100 

CONTINUE 

1166 



PAT = UO 

1169 



IF< V.NE.C. ) PAT=SIN(PI*Pl*V) /(PI^Pl^VJ 

i UO 

c 


GC TO 999 


c 

c 

r 


ITYPE =2 — UNIFORM LINEAR ARRAY 

nn 


200 

CONTINUE 


c 


FLEN=P1 


c 


NELMT=I1 

1172 



PAT-I.O 

1173 



IF^V.NE.C.) PAT=SINIPI*Pl*VI/(Il*SlN(PI#Pl«v/IlM 

117^ 

c 


GO TO 999 


c 

c 

r 


ITYPE =1 — TRIANGULAR LINE SOURCE. 

Ill's 


30C 

FLEN=Pl/2. 

1 176 



PAT=l.C 

1 177 



IFIV.NE.C.) PAT = ( SINIFLEN^PH'VI/IFLEN^PH'V) )*^'2 

1 1 78 

c 


GO TO 999 


c 

c 

r 


ITYPE - — UNIFORM RECTANGULAR APERTURE 

U79 


40C 

C0N7INUE 


c 


FLS-=P1 


c 


FLT=P2 

U80 



ARG l=PI«Pl«U 

1181 



ARG2^PI*P2«V 

1182 



IFIARGU 4Cl94C2,401 

U83 


<fOl 

IFCARG2) 4C3o404,403 

118^ 



PAT = S!NMRGl 5/A«Gl>5'SSNURG21 /ARG2 

U85 



GO TO 999 

1186 



PAT^SIN! ARGI J/ARGl 

U87 



CO TO 999 

lies 


AC2 

IFURG2) ACS, 406, 405 

U89 


^05 

PA T = SIN« ARC2 J /ARG2 

1 1 9C 



GO TO 999 

U9l 


^06 

PAT-KO 

\l^2 



GO TO 999 


• »2X, 
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C 

c 

C I TYPE = 5 — UNIFORM RECTANGULAR ARRAY 

C 

1193 5CC CCMlNUn 

C FLS=P1 

C FLT=P2 

C NELS=Il 

C NELT=l? 

U9A ARG1 = PI*PI*U 

1195 ARG2=PI*P2*V 

U96 IFURGU 501,502,501 

U97 5C1 !F(ARG2) 503,504,503 

U98 5G3 PAI==SIN« ARG1)/U14SIN<ARGI/I U ) *SI N ( ARG2 ) / ( I 2« S 1 M ( ARu2 / 1 2 ) ) 

1199 GO TO 999 

12CC 504 PAT = SIN(ARG1 )/( Il^SINl ARGl/1 1 1 ) 

12C1 GO TO 999 

1202 502 IFURG2S 505,506,505 

12C3 505 PAT^SINC ARG2 )/n2*SIN« ARG2/I2) ) 

12C4 GO TO 999 

1205 506 PAT=leO 

12C6 GO TO 999 

C 
C 

C ITYPe ~ 6 — UNIFORM CIRCULAR APERTURE. 

. C 

12C7 6GC C = SQRT(U4‘U+V*V ) 

C A^Pl 

1208 IFlC.eC.O,) GO TO 601 

12C9 K^2.*PI<'P1#C 

1210 CALL 8ESJ<X, l,BJ,0.000l,IER) 

1211 PAT=BJ/X«2oO 

1212 GO TO 999 

1213 601 PAT=loC 

1214 GC TO 999 
C 

C 

C ITYPE =7 — GENERAL ARRAY 

C 

121 5 70C If^AG=(0.0, 1-0) 

1216 NELMT=I1*I2 

1217 TEP.P=(0o0,0,0) 

1218 DC 701 J^1,N£L^T 

1219 TEMP = TEMP^loC»CEXPH«A6»2.«'PI<'(U^SSU)‘»“V*TTU) ) ) 

1220 7Cl CONT INUE 

1221 PAT=REAL(TEMP)/NELMT 

1222 GG TO 999 

1223 99C PA T=SPECPT ^UsVbITYPE) 

1224 999 RETURN 

1225 ENC 


1226 COMPLEX FUNCTION SOURCE ( M,N,U,V, I TYPE ) 

C 

C THIS SUBPRCGRAM CALCULATES THE CURRENT AT POINT (M,N) OUr TO 

C THE PATTERN AT POINT lU^V), 


A-lOA 


122 ? 
1228 
12 29 

123C 

1231 

1232 

1233 


I23A 

1235 

1236 


1237 

1238 

1239 


1 2^»0 

12A1 

1242 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 


c 

c 

c 

c 

c 


iTYPt = 1 
2 
3 
A 

5 

6 
7 


UNIFORM LINE SOURCE LOCATFC ‘AT = 
UNIFORM LINEAR array LOCATED AT S=0. 
TRIANGULAR LINE SOURCE LOCATED AT S=0. 
UNIFORM RECTANGULAR APERTUH. 

UNIFORM rectangular ARRAY. 

UNIFORM CIRCULAR APERTURE. 

GENERAL (3-D) ARRAY. 


ITYPE > 


special source (FUNCTION S PSCR ( M , t\ , U , 7 , I f Y!M.) 
WILL BE CALLED.) 


VERSION 1 LEVEL C 

DATE OF LAST REVISION: 73/166 JUNE 15*19/3 

THIS WORK SUPPORTED BY NASA GRANT NCR A7-COA-1C3. 

I 

FOR FURTHER INFORMATION CONTACT: 

W. L. STUTZMAN DEPT. OF ELEC. CNGR. 951-662A. 

E. L, COFFEY DEPT. OF ELEC. ENGR. 951-SA9A. 

COMPLEX TEMP»CEXPtIMAG,SPSOR 

COMMON /PATl/ Pl,P2,P3,PAfP5,P6*PI*SS( 100) ,TT( 100) *KK( 100) 
COMMON /PAT2/ 1 1 « 1 2 « I 3 1 1 4« 1 5 


SMAG=(0.C*1.0) 

CALL LCCSOR( M9N,S,T) 

IF(ITYP6.GT.7) GO TO 990 

GO TO ( 100*200*300, AOO, 500, 600, 700) * (TYPE 
(TYPE oLT. 1 
WRITE(6*10) ITYPE 

1C fORMAT( 1 HCo5X,®«^4«ERROR**»& ITYPE HAS THE VALUE • , I 1 I , • : • , 2 X * 
$®EXECUTICN TERMINATED*) 

STCP 


ITYPE = i — UNIFORM LINE SOURCE 

CC CONTINUE 
FIEN=P1 

SGURCE^CEXPI-Hf^aG^PS^Zo^T^Vl/Pl 
GO TO 999 


C 

C 

c 

C 

200 


C 


C 

C 

c 

c 


ITYPE =2 — UNIFORM LINEAR ARRAY 

CONTINUE 

FlEN^Pl 

S0URCE=CEXPl-IMAG«^2o«PI«'V«^T) /PI 
GO TO 999 


ITYPE= 3 — TRIANGULAR LINE SOURCE 
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12A3 3CC CONTIMUC 

C FL£N=Pl 

124A C0K^ABS(2.*f/PU 

12A5 SCURCE-2*/Pl*CEXP(“lNAG#2.«PI*r*V)*( l.-CCNI 

12A6 1F(CnN,GT.l) SQUPCE= ( 0. 0 *0. 0 J 

12^1 GG TO 999 

C 
C 

C ITYPE = A — UNIFORM RECTANGULAR APERTUkE 

C 

12AE ago CGMINUE 

C FLS=P1 

C FLT=P2 

12^9 SCilRCE=C6XP«-!MAG*2o*PI*(S*U+V*Tn/(Pl^P2) 

125C GO TO 999 

C 

C 

C ifYPE =5 — UNIFORM RECTANGULAR ARRAY 

C 

125V 50C CONTINUE 

C FLS=Pl 

C FLT-P2 

1252 S0LRCE=CEXP(-'IHAG«2,*PI*( S*U+V*T))/(Pl*P2) 

1253 GO TO 999 
C 

C 

C ITVPE =6 — UNIFORM CIRCULAR APERTURE 

C 

1254 60C RHC=SCRT(S*S+T*T) 

C A^Pl 

1255 SCURCE=«0,0,0*0) 

125 6 5FJRHCoLE*Pl J SOURCE=CEXP C- IMAG^2 - *P I C S^'U+T^V ) ) / 1 2 • I ♦P I 2 ) 

125? GO TO 999 

C 
C 

C ITYPE = 7 — GENERAL ARRAY, 

C 

1256 70G CCNTiNUE 

125 9 SCURCE=CEXPi-5MAG#2-«PI^(IU*S^V«TH/^ f 1*12) 

126C GO TO 999 

1261 99C S0URCE=SPSCRIM,N,U»V, ITYPE) 

1262 999 RETURN 

1263 END 


1264 SUBROUTINE LOC SOR I M pN ^ S p T ) . 

J265 INTEGER PXoPY 

1266 REAL INITLS , INITLT 

1267 CCPPOM /PATl/ P 1 « P2 « P3» P4 » P5 p P6^ P I p S S C lOO ) p IT UGO ), R <( lOO ) 

1268 CQl^MaN /PAT2/ U , 1 2 » I 3 p I 4 , 1 5 

J269 COMMON /LOC/ ITYPE 

C 

C 

1270 IF UTVPEoGlo?') GO TO 99C 

12111 GO TO !1 SCOo20Co300g4COo500o600o 700J p ITYPE 
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1272 



W«IT£(6,10> ITVPE 

1273 


K 

FORP ATl 



$ 

«EXECUTICN TERMINATED* > 

127^ 



STEP 


c 




c 



12?5 


ICG 

CONTINUE 


c 


SNITLT=P1 


c 


CELTAT-P3 

1276 



S=C, 

127 7 



T=^P2+ (N-1 HP3 

1278 



GO TO 999 


c 




c 



1279 


20C 

CONTINUE 


c 


PY= 11 


c 


CISY=P2 

laec 




1281 



i=CN~n/2-n*P2 

1 202 



IF ni/ 2 ^ 2 .£ 0 . n ) T=T+0.5*P2 

1283 



GO TO 999 


c 




c 



1284 


3CC 

GC TO 100 


c 




c 



1285 


40C 

CONTINUE 


c 


IN1TLS=P3 


c 


INITLT=P4 


c 


CELTAS=P5 


c 


CELTAT=P6 

1286 



S = P3^IM-n*P5 

1287 



7 = (N- 1 ) ^96 

1288 



GC TO 999 


c 




c 



1289 


5GC 

CONTINUE 


c 


PX^I 1 


c 


py= 12 


c 


CI5X=P3 


c 


CISY=P4 

1290 



s=iM-n/2-n*P3 

1291 



N- 5 2/2-1 5 

1292 



IFUl/2^2oEQ.U5 S=S-^0o5*P3 

1293 



IE U2/2«2o£QoI21 T=T40.5*P4 

1294 



GO TO 999 


c 




c 


- 

1295 


6CC 

GO TO 4CC 


c 




c 



1296 


IOC 

CCNTINUE 

1297 



NELPT = IM-U«!2-?'N 

1298 



S = SS(NELMn 

1299 



T = TT(NELPn 

ucc 



GO TO 999 


C 


I TYPE HAS THE VALUE 



Ul,* 


• ,2X, 
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13CI 

13C2 

1303 


1 30^1 

i3C5 
13C6 
5 3C7 


1 308 

1.3C<3 
1 31C 
13U 


1312 

1313 
13H 


C 

99C CALL SPLCC(^^tN•S,T) 
SSS ReiliRN 


COMPLEX functicn spsor c h,n»u , V» I t vpe > 
c DUI^MY SUBPROGRAM 

SPSCR= COoOvOoOl 
RETURN 
ENC 


FUNCTION SPECPTIU«V* ITYPEI 
C OUNMY SUBPROGRAM 

SPECPT=Co 
RETURN 
END 


SUBRaUTlNE SPLGC(M,N*S,n 
C DUMMY SUBROUTINE 

RETURN 
END 
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8. Appendix; Example of Input /Output Used With Computer 

Antenna Synthesis 


In this chapter one example will be used to illustrate the input and 
output of ANTSYN and ANTDATA. The pattern to be synthesized is a rectangular 


F^(u,v) Fj^(u,v) 


0.5 dB -0.5 dB 


and a maximum sidelobe level of —25 dB. The source is a rectangular aperture 
(ITYPE=4) lOA by 20A. 


8.1 Input to ANTSYN 

Since a rectangular aperture is included in our types of patterns 
(ITYPE=4) it is only necessary to include "dummy” subprograms for,.SINPUT, 
SPECPT, SPSOR, and SPLOC; 


SUBROUTINE SINPUT 

RETURN 

END 

SUBROUTINE SPLOC 

RETURN 

END 

FUNCTION SPECPT (U,V,ITYPE) 

SPECPT=0. 

RETURN 

END 

COMPLEX FUNCTION SPSOR (M,N, S, T, ITYPE) 
SPSOR=(0. ,0.) 

RETURN 

END 


For this particular desired pattern, subroutine DESPAT is written as follows: 


snapea beam or extent 


(u.v) 


F^(u,v) 


-0.2 4 u 4 0.2 
-0.05 < V < 0.05 


0. dB 





non non 
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SUBROUTINE DESPAT (FDES , FU , FL ,MMAX , NMAX, STARTU , STARTV,DELTAU , 
$DELTAV) , 

DBIENSION FDES(51,51),FU(51,51),FL(51,51) 

READ llAINBEAJI LIMITS ULIM AND VLIM 

READ (5,1) ULIM, VLIM 
1 FORMAT (8F10.0) 

READ TRANSITION REGION LIMITS UTRAN AND VTRAN 

READ (5,1) UTRAN,VTRAN 
C 

DO 10 M=1,MMAX 
U=STARTU+ (M-1 ) *pELTAU 
DO 10 N=1,NMAX 
V=STARTV+ (N-1) *DELTAV 
IF(U.LE.ULIM .AND. V.LE.VLIM) GO TO 20 
IF(U.GT.UTRAN .OR. V.GT. VTRAN) GO TO 30 
C TRANSITION REGION 

FDES(M,N)=99.0 
FU(M,N)=99.0 

FL(M,N)=99.0 ! 

GO TO 10 
20 CONTINUE 

C MAIN BEAM REGION 

FDES (M,N) =1.0 
FU(M,N)=1.06 
EL(M,N)=0.943 
GO TO 10 
30 CONTINUE 

C SIDELOBE REGION 

FDES(M,N)=0. 

FU(M,N)=0.057 
FL(M,N)=99.0 
10 CONTINUE 
C 

RETURN 

END 


The value ”99.0" in an array signals that a comparison is not to be made 
at that -point (e.g., in the sidelobe region, FL( , ) = 99.0 since a lower 


bound is not specified) . 
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The data cards for this example are: 

Card Column 



1 

1 

11 

1 

21 31 41 51 61 

1 .1 - -- 1 1 -- 1 

1 

1 

&PARAM 

■ \ 

- - 1 • r I - - T I 

2 

IDISK=1 

, ISYMM=3 ,DELTAU=0 .02 ,DELTAV=0. 01 ,MMAX=26 , NMAX=51 , 

3 

&END 



4 

&I PRINT 



5 

FDESCN= 

l,FDBPR=lj 

»FDBCN=1,FCURPR=1, 

6 

&END 



7 

&PATIN 



8 

ITYPE=4 

,LX=10. ,LY=20, , 

9 

INITLS= 

-5 . 0 ,DELTAS=0 . 2 , FINALS=5 . 0 , 

10 

INITLT= 

-10 . 0 ^DELTAT=0 . 4 ,FINALT=10 . 0 , 

11 

SEND 



12 

0 .2- , 

0.05 


13 

0.34 

0.12 


14 

00015 



15 

0.0 

0.0 

.1,0 

16 

0.0 

0.05 

1.0 

17 

0.0 

-0.05 

1.0 

18 

0.1 

0,0 

1*0 

19 

-0.1 

0.0 

1.0 

20 

0.1 

0.05 

1.0 

21 

0.1 

-0.05 

1,0 

22 

-0.1 

0.05 

1,0 

23 

-0.1 

-0,05 

1.0 

24 

0.2 

0.05 

1.0 

25 

0.2 

-0.05 

1.0 , 

26 

-0.2 

0.05 

1.0 

27 

-0.2 

-0.05 

1.0 

28 

0.2 

0.0 

1.0 

29 

-0.2 

0.0 

1*0 

Notice that it is not necessary to code all the namelist variables. For 

example, 

STARTU is 

not coded 

because its default value is 0, (which is what 

we want) 

. In order 

to better understand why certain parameters were coded, 

refer to 

section 6. 

3 to steps 2 through 10 as they are discussed below. 


Step 2. Cards 1 to 3: Pattern Parameters 

i. Put output data onto unit 22 if the synthesis is successful (IDISK=1) 

ii. Use quadrilateral symmetry (ISYMM=3) 

iii. Have a maximum of 100 iterations (ITRMAX=100) 
iv , STARTU=STARTV=0 . , DELTAU=0 . 02 ,DELTAV=0 .01 
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V. Make the comparisons at 26 points in the u direction and 51 points 
in the v direction (MMAX=26,NMAX=51) 
vi. Assure that F(1,1)=0 dB. at all times (MCENT=1,NCENT=1) 

Note that FO'lMAXjNMAX) corresponds to (u,v)= (0,5,0.5) : only part of the 
(u,v) plane is considered. 

Step 3, Cards 4 to 6: Output Switches 

i. Profiles of the final pattern and final current (FDBPR=FCURPR=1) 

ii. Contour maps of the desired pattern (FDESCN=1) and final current 
(FCURCN=1) are to be made 

Step 4. Cards 7 to 11: Source Specifications 

i. Rectangular aperture (ITYPE=4) 
ii. Dimensions of lOX by 20X (LX=10, ,LY=20, ) 

iii. The value of current will be calculated at 51 x 51 points from 
s = -5,0 to 5,0 by 0,2, and t = -iO.O to 10*0 by 0,4. 
(INITLS=-5,,FINALS=5, ,DELTAS=0.2;INITLT=-10. ,FINALT=10. ,DELTAT=0. 4) 

Step 5, Cards 12 to 13; The Desired Pattern 

For a more complete explanation, see the listing of subroutine DESPAT 
earlier in this section. 

Step 6, Cards 14, 15 to 29; Initial Pattern 

These are the number of (NORG) and the values of (U0RG,V0RG,C0RG) 
the original correction coefficients. t 

/ 

Steps 7,8,9. See subroutines SINPUT,SPLOC,SPECPT, SPSOR. 


8.2 Output from ANTSYN 

This section is devoted to the actual output from the computer program 
ANTSYN with data as specified in Section 8.1. Due to page size limitations, 
some of the output has been edited. The omissions are indicated by an 
ellipsis (...) . 
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antenna synthesis program VERSION^^J-EVEL 1 


VPI E£ DEPT. 


DATE == 09 - 25^-73 


TIME* 5.30.40 


; pattern 77 



PROGRAM parameters ^ 

, . .... : ... . 

IDISK = 1 

ST^RTU = 

^U.OU ' 

ISYMM = 3 

STARTV “ 

G^O 

ITRMAX - ZOO 

OELTAU = 

0.020 


DELTAV ^ 

o.oid 


UMAX = 26 

NMAX = 51 

MCENT = 1 

NCBNT = 1 


fOPSPT = 0 
FDESCN = 1 
FDESPR = 0 


EORGPT s= 0 FOBPT = ^ ^ 

FORGCN = 0 FDBCN = I : ICURCN = 0 

PORGPR - 0 FDBPR - 1 ; - ICURFR- 0 


FCURPT = 0 
FCURCN = C 

FCURPR = 1 


ITYPE~4 — " UNIFORM RECTANGULAR APERTURE 

DIMENSIONS = LXfLY = 10<.0000 t 20.0000 
INITLS,OELTAStEINALS: “5*QO00 0.2000 5. COCO 

INITlTtDELTAT*FlNALT: -lOVOOOO 0.4000 10.0000 


MCURfNCUR: 51 51 


reproducibility 

ORIGINAL PAGE IS 


OF THE 
POOR 



“0.5000 

-0 

CONTOUR 
.4000 -0, 
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PLOT OF THE DESIRED 
.3000 -0.2000 -0, 

PATTERN 
.1000 ' 

« 

-0 

. 0.000 


0 

.1000 

• 

0.5000 .? 

2 

2 

2 

2 

# 

2 

2 

2 

2 

2 

# 

2 

2 

2 

2 

2 

• 

2 

2 

2 

2 

2 

# 

2 

2 

2 

2 

2 

« 

2 

2 

2 

2 


• 

2 

0.4900 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

? 

2 

2 

? 

2 

2 

2 

2 

0.4800 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


2 

2 

2 

2 

2 

2 

2 

0.4700 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

p 

2 

7 

2 

2 

0.4600 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


2 

. 2 

2 

2 

2 

2 

7 

0.4500 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

*> 

2 

2 

2 

2 

2 

2 

2 

0. 4*^>00 . 2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

? 

2 

2 

2 

2 

2 

2 

2 

0.4300 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

O 

i- 

9 

7 

7 

0.4200 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2.2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

? 

2 

o 

7 

7 

2 

2 

2 

0.4100 .2 

2 

2 

2 

2 

7 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

7 

7 

7 

7 

2. 

7 

2 

2 

0.4000 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

<- 

2 

2 

2 

2 

7 

7 

0.3900 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.3800 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

> 

2 

2 

0.3700 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

7 

2 


0.3600 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

7 

2 

2 

2 

2 

2 

2 

2 

0.3500 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

p 

2 

2 

7 

9 

c . 

2 

0.3400 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.3300 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.3200 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2. 

0.3100 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.3000 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.2900 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

'> 

2 

:> 

0.2800 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

■y 

9 

2. 

2 

0.2700 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.2600 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

7 

7 

c. 

7 

0.2500 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.2400 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

■> 

7 

2 

9 

2 

7 

2 

p .2300 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

■2 

2 

2 

2 

n 

C : 

2 

2 

2 

0.2200 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

;> 

2 

2 

2 

2 

9 

7 

0.2100 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

, 2 

0.2000 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.1900 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.1800 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

• 7 

2 

0.1700 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

9 

C 

2 

2 

0.1600 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.15 C 0 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

0.1400 .2 

2 

2 

2 

2 

2 

? 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2, 

•7 

2 

2 

? 

2 

2 

2 

0.1300 .2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

? 

2 

2 

2 

2 

2 

2 

2 

2 

2 

7 

0.1200 .2 

2 

2 

2 

2 

2 

2 

2 

+ 

4 

4 

4 

4 

■ 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

0.1100 .2 

2 

2 

2 

2 

2 

2 

2 

+ 

4 

4 

4 

4 

4 

■'4 

4 

4 

•4 

■4 

4 

4 

4 

4 

4 

4 

4 

+ 

4 

4 

4 

4 

0.1000 .2 

2 

2 

2 

2 

2 

2 

2 


4 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

. 4 

4 

4 

4 

4 

4 

4 

4 

4 

■¥ 

0*0900 .2 

2 

2 


2 

2 

2 

2 


4 

4 

4 

4 

4 

4 

4 ■ 

,4 

4.; 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

0.0800 .2 

2 

2 

2 

2 

2 

2 

2 

+ 

4 

4 

4 

4 

4 

4 

■'4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

0.0700 .2 

2 

2 

2 

2 

2 

2 

2 

+ 

4 

4 

4 

4 

4 

4 

4 

4- 

4 

4 

4/ 

4 

4 

4 

4 


4 

4 

4 

4 

4 

4 

0.0600 .2 

2 

2 

2 

2 

2 

2 

2 

+ . 

4 : 

4 

4 

4 

4 

4 

4 

4 

4 

■ 4 

4 

4 

4 

4- 

4 

4 

4 

4 


4 

4 

4 

0.0500 .2 

2 

2 

2 

2 

2 

2 

2 

4- 

4- 

4 

4 

4- 

4 

4; 

T 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

0. C 400 .2 

2 

2 

2 

2 

2 

Z 

2 

4- 

4 

4 

4 

4 

4 

4 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

0.0300 .2 

2 

2 

2 

2 

2 

2 

2 

♦ 

4 

4 

4 . 

4 

4 ' 

■4 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

O . C 200 .2 

2 

2 

2 

2 

2 

2 

2 

+ 

4 

4 

4 

4 

4- 


7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

0.0100 .2 

2 

2 

2 

2 

2 

2 

2 

4 

4" ' 

■4 

4 

4 

4 

+ 

7 

7- 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

0.0000 .2 

2 

2 

2 

2 

2 

2 

2 

4 

♦ 

4 

4 

4 

4 ‘ 

4 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

“0.0100 .2 

2 

2 

2 

2 

2 

2 

2 

4- 

4 

4 

4 

4 

4 

4 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

-0.0200 .2 

2 

2 

2 

2 

2 

2 

2 

+ 

4 

4 

4 

4 

4 

4 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

-0.0300 .2 

? 

2 

2 

2 

2 

2 

2 

4 

4 

4 

4 

4 

4 

4 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

-0.0400 .2 

2 

2 

2 

2 

2 

2 

2 

4 

4 

4 

4 

4 

4 

4 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 • 

r0.0500 .2 

2 

2 

2 

2 

2 

2 

2 

4 

4'- 

4 

4 

4 ^ 

4 

4 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 



A-114 


CONTOUR LFVfEL K FY 


0: -0.6000000F 00 TO -0*3999900E "00 4: 0.2000000E 00 TO 
IJ ~0*4000000E 00 TO “0*1999900E 00 5: 0*40000G0E 00 TO 
2S ->0.2000000E 00 TO 0 . 1 OOOOOOE-04 6: 0. 599999 8F CO TP 

TO 0.2000099E 00 7: 0.7999997E 00 TO 


0.4 00 0099 t 00 
0.6 0000990 00 
0.3000098*^ no 
0 .1 OOOOlOF 01 


B: 0.9999995E CO TO 0.1200008E01 

9: 0.U99999E 01 TO 0.1400008E 01 

-s -0.9999999E 30 TO -0.6000000E 00 

0.1400008E 01 TO 0.9999999E 30 


— INITIAL COEFFICIENTS — 

J U0RG(J1 VORGtJl CORGIJ) 


1 

0.0 

0.0 

1.0000 

2 

0.0 

0.0500 

1.0000 

*5 

0.0 

-0.0500 

1.0000 

4 

O.IOOO 

0.0 

1.0000 

5 

^0.1000 

0.0 

1.0000 

6 

0.1000 

0.0500 

1.0000 

7 

0.1000 

-0.0500 

l.OOOO 

y 

-0.1000 

0.0500 

1.0000 

9 

-0.1000 

-0.0500 

1.0000 

10 

0.2000 

0.0500 

1.0000 

11 

0.2000 

-0.0500 

1.0000 

12 

-0.2000 

0.0500 

1.0000 

13 

-0.2000 

-0.0500 

1.0000 

14 

0.2000 

0.0 

1.0000 

15 

-0.2000 

0.0 

l.OOOO 



fi-l/s 


♦♦SEARCH^* 

9 

■ 4' 

-Owl 842 

♦♦SEARCH** 

9 

14 

0.1524 

♦♦SEARCH** 

i 

14 

0.2088 

♦♦SEARCH** 

11 

6 

0.1875 

♦♦SEARCH** 

5 

6 

0.1962 

♦♦SEARCH** 

9 

18 

“0.1572 

♦♦SEARCH** 

1 

18 

-0.2146 

♦♦SEARCH** 

1 

22 

0.1065 

♦♦SEARCH**' 

19 

. 6 

0.1304 

♦♦SEARCH** 

8 

14 

0.1241 

♦♦SEARCH** 

8 

22 

0.1394 

♦♦SEARCH** 

1 

14 

0.1209 

♦♦SEARCH** 

11 

6 

0.1322 

**SEARCH** 

4 

6 

0.1436 

♦♦SEARCH** 

23 

6 

-0.1201 

♦♦SEARCH** 

7 

18 

. -0.1X88 

♦♦SEARCH** 

1 

4 

-0.0716 

♦♦SEARCH** 

9 

5 

-0.1592 

♦♦SEARCH** 

1 

5 

-0.1155 

♦♦SEARCH** 

9 

5 

-0.0856 

♦♦SEARCH** 

1 

■ ' 5 

-0.0900 

♦♦SEARCH** 

1 

4 

-0 .0643 

♦♦SEARCH** 

9 

5 

-0.1467 

** SEARCH** 

1 

5 

-0.1023 

♦♦SEARCH** 

9 

-.•5 

-0.0757 

♦♦SEARCH** 

7 

16 

0.1005 

♦♦SEARCH** 

11 

6 

0.0889 

♦♦SEARCH** 

14 

14 

0.1093 

♦♦SEARCH** 

1 

. 

-0 .0670 

♦♦SEARCH** 

9 

5 

—0 .0946 

♦♦SEARCH** 

11 

1 

0.1536 

♦♦SEARCH** 

19 

1 

0.1523 

♦♦SEARCH** 

1 

5- 

-0.0784 

♦♦SEARCH** 

23 

1 

-0.1235 

♦♦SEARCH** 

9 

4 

-0.1375 

♦♦SEARCH** 

11 

1 

0.1179 

♦♦SEARCH** 

6 

1 

0.1176 

♦♦SEARCH** 

6 

6 

0 .0956 

♦♦SEARCH** 

9 

4 

-0.0875 

♦♦SEARCH** 

11 

6 

0.1438 

** SEARCH** 

11 

1 

0i0898 

**SEARCH** 

5 

1 

0.0873 

♦♦SEARCH** 

5 

6 

0.1050 

♦♦search** 

9 

4 

-0.0652 

♦♦SEARCH** 

6 

1 

0.1144 

♦♦SEARCH** 

11 

1 

0.1130 

♦♦SEARCH** 

11 

6 

0.0960 

♦♦SEARCH** 

9 

4 

-0.0996 

♦♦SEARCH** 

6 

6 

0.1263 

♦♦SEARCH** 

11 

1 

0.1018 

♦♦SEARCH** 

6 

1 

0.0968 

♦♦SEARCH** 

9 

4 

-0.0924 

♦♦SEARCH** 

11 

6 

0.1390 

♦♦SEARCH** 

5 

6 

0.0783 

♦♦SEARCH** 

11 

1 

0.0947 

♦♦SEARCH** 

9 

5 

-0.093B 

♦♦SEARCH** 

11 

6 

0.0748 

♦♦SEARCH** 

1 

4 

-0.0624 

♦♦SEARCH** 

10 

5 

-0.1378 

♦♦SEARCH** 

1 

5 

-0.0909 

♦♦SEARCH** 

9 

5 

-0.0783 

♦♦SEARCH** 

1 

5 

-0.0715 



A-116 


— FINAL COEFFICIENTS 


J 

US(J) 

VS(J) 

CORCOF( J) 

1 

0.1600 

0.0300 

-0.6602 

2 

-0.1600 

0.0300 - 

-0.6602 

•a_ 

0.1600 

-0.0300 

-0.6602 

4 

-0.1600 

-0.0300 

-0.6602 

5 

0.1600 

0.1300 

0.1689 

6 

-0.1600 

0.1300 

0.1689 

7 

0.1600 

-0.1300 

0.1689 

B 

-0.1600 

-0.1300 

0.1689 

9 

0.0 

0.1300 

0.3694 

10 

0.0 

-0.1300 

0.3694 

« 

ft 

• 

« 

ft 

• 

• 

• 

ft 

ft 

• 

# 

80 

-0.0800 

0.0 

0.0840 

81 . 

0.1800 

0.0400 

-0.1449 

82 

-0.1800 

0.0400 

-0.1449 

83 

0.1800 

-0.0400 

-0.1449 

8A 

-0.1800 

—0.0400 

-0.1449 


J 

UORG( J) 

VORG(J) 

CORG<J) 

1 

0.0 

0.0 

1.0352 

2 

0.0 

0.0500 

1.0352 

3 

0.0 

-0.0500 

1.0352 

4 

o.iooo 

0.0 

1.0352 

5 

-0.1000 

0.0 

1.0352 

- 6 

0.1000 

0.0500 

1.0352 

7 

O.IOOO 

-0.0500 

1.0352 

8 

-0.1000 

0.0500 

1.0352 

9 

-0.1000 

-0.0500 

1.0352 

10 

0.2000 

0.0500 

1.0352 

11 

0.2000 

-0.0500 

1.0352 

12 

-0 . 2000 

0.0500 

1.0352 

13 

-0.2000 

-0.0500 

1.0352 

14 

0.2000 

0.0 

1.0352 

15 

-0.2000 

0.0 

1.0352 


NUMBER OF ITERATIONS = 62 

FNORM = 1*035I? 

PATTERN NUMBER NUMPAT * 17 



/I— AA / 


CONTOUR PLOT OF THE FINAL PATTERN IN 08. 


-0.5000 -0.4000 


-0.3000 -0.200G -0.1000 -0.0000 


0. icoc 


0.5000 

■ — 

. ~ — 

. — — — 

. 0.4900 

• - 

, ^ _ 

G ^ 

0,4800 

■ - 

0 0 

0 0- 

0,4700 

- 

0 0 

0 0 - 

0.4600 

- 

- * 

0 

0.4500 .- 

- 

— — 

— — — 

0.4400 

- 

- 0 

0 0 - 

0.4300 

- 

0 0 

10- 

0.4200 

- 

0 1 

10- 

0 .4 ICO . — 

~ 

- 0 
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-0.0000 

0.XX45449E-02 

0.0 

4.0000 

-0.0000 

0.3X6X7XOE-02 

0 o 0 

4.2000 

“0.0000 

0.4723225E-0? 

0.0 

4.4000 

-0.0000 

0.5990X29E-02 

- 0 . 25611376-08 

4.6000 

-0.0000 

0.6880980E-02 

- 0 . 20954 76E - O0 

4.6000 

-0.0000 

0.7003X62E-02 

0,0 

5.0000 

-0,0000 

0.5 7008 38E “02 

0.0 
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T AXIS P^^OFILE 

DF FINAL 

CURRENT 




T 


IMAGIN4RY 

-0.0000 


-10.0000 

-0.2455.123E-^01 

0.44237e2E-08 

-0.0000 


-9.6000 

--0ii83e#^E-01 

0.279396BE-08 

-0.0000 


-9.2 000 

-a.l3i3T53E-01 

0.3725290E-0B 

-0.0000 


-8.8000 

-d. 9 560350% -02 

0.51P2274F-08 

-0.0000 


-8.4000 

-0. 78505 84E -02 

0.1396984E-08 

-0.0000 


-8^0000 

-0.76720^68E-02 

0.13969P4E-0P 

-0.0000 


-7. 6 000 

-0.8307122E-02 

0.1396984E-08 

-0.0000 


-7.2000 

-0*8870248E-02 

0.3492460E-08 

-0.0000 


-6,8000 

-0.8532621E-02 

0.3C26799E-08 

-0.0000 


-6 .4000 

-0.6700888E-02 

0.3026798E-08 

-0.0000 


-6.0000 

-0.3il53C9E-02 

0.1862645E-08 

-0.0000 


-5.6000 

0.2147641E-02 

-O.l 1641 53E-08 

-0.0000' 


-5.2000 

0.875^896-^02 

0.1 3969 84E-0P 

-0.0000 


-4.8000 

0. 16245996-01 

-0.1 164153E-06 

-0.0000 


-4.4000 

0.2417^2036-01 

0.9313226E-09 

-0.0000 


-4.0000 

0.32198 55E-01 

0.1862645E-08 

-0.0000 


-3.6000 

0.4015272E-G1 

0.2328306E-08 

-0.0000 


-3.2000 

0.4800258E-01 

0.2 793968 E-0 8 

-0.0000 


-2.8000 

0.5578430E-01 

-0.2328306E-0O 

-0*0000 


-2.4000 

0.6350774E-01 

0. 162981 5 E-08 

-0.0000 


-2.0000 

0. 71070 19E-01 

-0.2 3283 06 E-0 9 

-0.0000 


-1.6000 

0. 78210 18E-01 

-0.1629815E-08 

-0.0000 


^1.2000 

0.84521 17E-01 

0. 58207 66E-10 

-0.0000 


-0.8000 

0.89$1896E-01 

-0.16007 11 E-09 

-0.0000 


-0.4000 

0.%274071E-01 

-0.4656613E-09 

-0.0000 


-0.0000 

0.938 543 lE-01 

-0l7105427E-14 

-0.0000 


0.4000 

0.927407 IE -01 

0.7 1304 38F-0«> 

-0.0000 


0.8000 

0.8951896E-01 

-0.8731149E-10 

-0.0000 


1.2000 

0.8452106E-01 

-0.8731149E-1C 

-0.0000 


1 .6000 

0.782 10236-01 

0.0 

-0.0000 


2*0000 

0.7107037E-01 

0.2095476E-08 

-0.0000 


2.4000 

0. 63507 80E-01 

0.69849 19E-09 

-0.0000 


2.8000 

0.5578437E-01 

-0.1396984E-08 

-0.0000 


3.2000 

0.4800263E-01 

-0.1396984E-08 

-0.0000 


3.6000 

0.4015278E-01 

-0.30267968-08 

-0.0000 


4.0000 

0.3219860E-01 

-0.1862645E-08 

-0,0000 


4.4000 

0.2417206E-01 

-0.1 8626 45 E-0 8 

-0.0000 


4.8000 

0.1624606E-01 

0.23283066-0*^ 

-0.0000 


5.2000 

0.8754738E-02 

-0.1 3969 84E-08 

-0.0000 


5.6000 

0i2l47641E-O2 

0.1164153B-08 

-0.0000 


6,0000 

-0.31V5296E-02 

-0.1862645E-08 

-0.0000 


6.4000 

-0.6700821E-02 

-0.3026798 E-08 

-o.oooo 


6. 8000 

-0.8532569E-02 

-0.3026798E-08 

-0.0000 


7.2000 

-0.8870188E-02 

-C. 2 56 11 37 E-08 

-0.0000 


7.6000 

-0.8307122E-02 

0. 23283066-09 

-0.0000 


8.0000 

-0i7672135E-02 

-0.3492460E-08 

-0.0000 


8.4000 

-0. 78505 84E-02 

0.23283066-09 

-0.0000 


8.8000 

-0.9560246E-G2 

-0.44237826-08 

-0.0000 


9.2000 

-0.1 3137 43E-01 

-0.3725290E-06 

-0.0000 


9.6000 

-0.1838810E-G1 

-0.44237826-03 

-0.0000 


10.0000 

-0.24551026-^01 

-0.1862645E-08 

pattern number 

77 

HAS BEEN 

STORED ON RECORD 20 OF 

ANTDATA.A507C2 



A-123 


8,3 Input to ANTDATA 


Referring to Section 7.3, the following cards were punched. 

Card Column 


1 11 21 

^ 

1 0007700020 

2 0015100151 

3 1111 

4 0.0 

5 0.0 

6 -35.0 -35.0 

7 -30.0 0,0 5,0 

8 0000 

9 0000 


Step 


Card Description 


1 

2 

5 

6 

7 

8 
9 

10 

15 


1 NUMPAT=77,NtJMTRR=20 

2 Array dimensions are 151 x 151 

3 All options for pattern ma^itude are specified 

4 U-profile location is 0. (V=0) 

5 V-profile location is 0, (U=0) 

6 L0WC0N=- 35.0, DASH— 35.0 

7 COHLOW=>-40.0,COMMAX=0.0,CONOT=5.0 

8 No options for current magnitude are specified 

9 No options for current phase are specified 


8.4 Output from ANTDATA, 

The following is the printout from computer program ANTDATA, 

PLOT OUTPUT FOR PATTERN 77: 

U-AXIS PROFILE PLOT REQUESTED — V=0. 

V-AXIS PROFILE PLOT REQUESTED — U=0. 

CONTOUR PLOT OF PATTERN REQUESTED. 


LOWEST i 

CONTOUR » 

-30.0 

HIGHEST 

CONTOUR 

a 0.0 

CONTOUR 

INTERVAL 

a 5.0 


PATTERN 1$ NOW BEING GENERATED. IF PATTERN < ~35*C0 PATTERN - —35.00 

THREE - CIRENSIONAL PLOT OF PATTERN REQUESTED 
EXECUTION TIME: 27.57 NINUTES. 
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Refer to Chapter 4 for plotter output. 


Figure 


Description 


4.26 

4.27 

4.28 

4.29 


U-axis profile 
V-axls profile 
Contour plot 
Three-dimensional plot 



